diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 21:04:43 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 21:04:43 -0700 |
commit | d00338ee4ae139b284647c367bf69563a5b4767a (patch) | |
tree | 6c0add0d1a0272671885be61b3f07b590371fab0 | |
parent | 6264ac68cfc8de631a69b5c8e12af3024f81f6a6 (diff) | |
download | mu-d00338ee4ae139b284647c367bf69563a5b4767a.tar.gz |
13
-rw-r--r-- | mu.arc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 1f9b5318..b73afa5c 100644 --- a/mu.arc +++ b/mu.arc @@ -18,9 +18,9 @@ ;? (prn instr) ;? (prn memory*) (let delim (or (pos '<- instr) -1) - (with (oarg (if (>= delim 0) - (cut instr 0 delim)) - op (instr (+ delim 1)) + (with (oarg (if (>= delim 0) + (cut instr 0 delim)) + op (instr (+ delim 1)) arg (cut instr (+ delim 2))) ;? (prn op " " oarg) (case op |