From 0f236304511612f032456c5b98fbfc9e3da72852 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 7 Oct 2014 08:32:45 -0700 Subject: 115 --- mu.arc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'mu.arc') diff --git a/mu.arc b/mu.arc index eb0b0c41..2c3db8d5 100644 --- a/mu.arc +++ b/mu.arc @@ -159,13 +159,13 @@ (+ v.operand offset))) (def array-ref (operand idx) - (prn "aref: @operand @idx") +;? (prn "aref: @operand @idx") (assert typeinfo.operand!array) (assert (< -1 idx (array-len operand))) - (prn "aref2: @operand @idx") +;? (prn "aref2: @operand @idx") (withs (elem typeinfo.operand!elem offset (+ 1 (* idx sz.elem))) - (prn "aref3: @elem @v.operand @offset") +;? (prn "aref3: @elem @v.operand @offset") (m `(,(+ v.operand offset) ,elem)))) ; context contains the call-stack of functions that haven't yet returned @@ -248,7 +248,7 @@ ;? (prn "--- " top.context!fn-name " " pc.context ": " (body.context pc.context)) ;? (prn " " memory*) (let (oarg op arg) (parse-instr (body.context pc.context)) - (prn op " " arg " -> " oarg) +;? (prn op " " arg " -> " oarg) (let tmp (case op literal -- cgit 1.4.1-2-gfad0