diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-07 08:32:45 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-07 08:32:45 -0700 |
| commit | 0f236304511612f032456c5b98fbfc9e3da72852 (patch) | |
| tree | 624169681c2590c1136ec1458d7b3256d05e0bd7 | |
| parent | 48052ed2df4467d08c03413afb42357fd55bfd2c (diff) | |
| download | mu-0f236304511612f032456c5b98fbfc9e3da72852.tar.gz | |
115
| -rw-r--r-- | mu.arc | 8 |
1 files changed, 4 insertions, 4 deletions
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 |