diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-07-17 08:16:22 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-07-17 08:16:54 -0700 |
| commit | 8ccc6ebf0f90a3b1e939d6ef845df7bfd4501f8a (patch) | |
| tree | e81c863227b904d936229d5542f637702533c39f /mu.arc | |
| parent | 72406d197bc9244251682602a70316ee7f222bd2 (diff) | |
| download | mu-8ccc6ebf0f90a3b1e939d6ef845df7bfd4501f8a.tar.gz | |
26 - cleanup tests
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index fa8a1a01..d4840706 100644 --- a/mu.arc +++ b/mu.arc @@ -12,7 +12,7 @@ (clear) ; just a convenience until we get an assembler -(= type* (obj integer 0 location 1 address 2)) +(= type* (obj integer 0 type 1 location 2 address 3 boolean 4)) (def add-fns (fns) (each (name . body) fns @@ -23,10 +23,9 @@ (let fn-arg-idx 0 ;? (prn instrs) (for pc 0 (< pc len.instrs) (++ pc) -;? (prn pc) (let instr instrs.pc -;? (prn instr) ;? (prn memory*) +;? (prn pc ": " instr) (let delim (or (pos '<- instr) -1) (with (oarg (if (>= delim 0) (cut instr 0 delim)) |