akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

13

This commit is contained in:
Kartik K. Agaram 2014-07-11 21:04:43 -07:00
parent 6264ac68cf
commit d00338ee4a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu.arc
View File

@ -18,9 +18,9 @@
;? (prn instr) ;? (prn instr)
;? (prn memory*) ;? (prn memory*)
(let delim (or (pos '<- instr) -1) (let delim (or (pos '<- instr) -1)
(with (oarg (if (>= delim 0) (with (oarg (if (>= delim 0)
(cut instr 0 delim)) (cut instr 0 delim))
op (instr (+ delim 1)) op (instr (+ delim 1))
arg (cut instr (+ delim 2))) arg (cut instr (+ delim 2)))
;? (prn op " " oarg) ;? (prn op " " oarg)
(case op (case op