From 0113982e875ccb88575e6344f8c572e812dd193b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 29 Oct 2018 13:11:32 -0400
Subject: [PATCH] WIP

---
 test-matrix.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/test-matrix.scm b/test-matrix.scm
index c98428a2..401719f5 100644
--- a/test-matrix.scm
+++ b/test-matrix.scm
@@ -116,15 +116,19 @@
                     (vector-ref vec i))))))
            (mat
             (cdr mat)))
-(make-row->func 1 -1)
-      #;(zebra (first-row-perm 'child)
+;(make-row->func 1 -1)
+      (zebra (first-row-perm 'child)
              (make-row->func 1 -1)
              (make-row->func -1 1)
              mat
              number-of-cols))))
 
+;; TODO: with this test code, why is the fast-eq inlined????
 (write (zunda 1 -1))
-;
+
+(define zebra
+  (lambda (row-perm row->func+ row->func- mat number-of-cols)
+    (write (list row-perm row->func+ row->func- mat number-of-cols))))
 ;(define zebra
 ;  (lambda (row-perm row->func+ row->func- mat number-of-cols)
 ;    (let _-*-