about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-08-02 15:26:08 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-08-02 15:26:08 -0700
commit39dd5cd491552f5209660b4a57e30bff07e0fe78 (patch)
treeadc4140158251c01e353c2e75d93df2e18e9b908
parent0cd4bfc8ae1cfac647b3ed1669dd1338458f1ef6 (diff)
downloadmu-39dd5cd491552f5209660b4a57e30bff07e0fe78.tar.gz
47
-rw-r--r--mu.arc14
1 files changed, 1 insertions, 13 deletions
diff --git a/mu.arc b/mu.arc
index bbe16c80..87f778c0 100644
--- a/mu.arc
+++ b/mu.arc
@@ -38,11 +38,7 @@
     `(let ,gloc ,loc
        (if (pos 'deref (metadata ,gloc))
          (= (memory* (memory* (v ,gloc))) ,val)
-;?          (do (prn "AAA " ,gloc " " (v ,gloc) (memory* (v ,gloc)))
-;?            (prn "BBB " ',val)
-;?            (prn "CCC " ,val)
          (=          (memory* (v ,gloc))  ,val)))))
-;?   )
 
 (def run (instrs (o fn-args) (o fn-oargs))
   (ret result nil
@@ -124,25 +120,17 @@
 ;?                       (prn "=> " oarg)
                       (each o oarg
 ;?                         (prn o)
-;?                         (prn memory*)
-;?                         (prn "000 " results)
-;?                         (prn "111 " pop.results)
-;?                         (prn "222 " (macex '(m pop.results)))
-;?                         (quit)
                         (setm o (m pop.results))))
                     (continue))
                 )
-;?               (prn "AAA " tmp " " oarg)
+;?               (prn tmp " " oarg)
               ; opcode that generated at least some result
               (if (acons tmp)
                 (for i 0 (< i (min len.tmp len.oarg)) ++.i
                   (setm oarg.i tmp.i))
-;?                 (do (prn "bbb")
-;?                 (prn:macex1:quote (setm oarg.0 tmp))
                 (when oarg  ; must be a list
 ;?                   (prn oarg.0)
                   (setm oarg.0 tmp)))
-;?               (prn "ccc"))
               )))))
 ;?     (prn "return " result)
     )))