diff options
| -rw-r--r-- | mu.arc | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/mu.arc b/mu.arc index b670adea..6f3bb029 100644 --- a/mu.arc +++ b/mu.arc @@ -780,12 +780,7 @@ (recur cdr.instr) (pop stack) (continue)) -;? (let (oarg op arg) (parse-instr instr) - (let delim (or (pos '<- instr) -1) - (with (oarg (if (>= delim 0) - (cut instr 0 delim)) - op (v (instr (+ delim 1))) - arg (cut instr (+ delim 2))) + (let (oarg op arg) (parse-instr instr) (trace "c{1" pc " " op " " oarg) (case op break @@ -815,7 +810,7 @@ (assert (is oarg nil) "loop-unless: can't take oarg in @instr") (yield `(((jump-unless)) ,arg.0 ((,(open-offset pc stack (and cdr.arg (v arg.1))) offset))))) ;else - (yield instr)))) + (yield instr))) (++ pc)))))))) (def close-offset (pc locs nblocks) |