From 39dd5cd491552f5209660b4a57e30bff07e0fe78 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 2 Aug 2014 15:26:08 -0700 Subject: 47 --- mu.arc | 14 +------------- 1 file changed, 1 insertion(+), 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) ))) -- cgit 1.4.1-2-gfad0