diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-27 08:56:59 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-27 08:56:59 -0800 |
commit | 7869903d87275e6e7a80c3e4595a0b3d00fea2ea (patch) | |
tree | cc6dcb9dae9525b4231e9c066cbd6d142dbbac2d | |
parent | 9d5967c648e93b97d0ce9fe91fa8ea706adf52c6 (diff) | |
download | mu-7869903d87275e6e7a80c3e4595a0b3d00fea2ea.tar.gz |
350
-rw-r--r-- | mu.arc | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mu.arc b/mu.arc index 5e8f77ca..ac7040e3 100644 --- a/mu.arc +++ b/mu.arc @@ -732,37 +732,37 @@ begin (do (push pc stack) - (assert (is oarg nil) "begin: can't take oarg @instr") + (assert (is oarg nil) "begin: can't take oarg in @instr") (recur arg) (pop stack) (continue)) break (do - (assert (is oarg nil) "break: can't take oarg @instr") - (assert (is arg nil) "break: can't take arg @instr") + (assert (is oarg nil) "break: can't take oarg in @instr") + (assert (is arg nil) "break: can't take arg in @instr") (yield `(jump (,(close-offset pc locs) offset)))) break-if (do - (assert (is oarg nil) "break-if: can't take oarg @instr") + (assert (is oarg nil) "break-if: can't take oarg in @instr") (yield `(jump-if ,arg.0 (,(close-offset pc locs) offset)))) break-unless (do - (assert (is oarg nil) "break-unless: can't take oarg @instr") + (assert (is oarg nil) "break-unless: can't take oarg in @instr") (yield `(jump-unless ,arg.0 (,(close-offset pc locs) offset)))) loop (do - (assert (is oarg nil) "loop: can't take oarg @instr") - (assert (is arg nil) "loop: can't take arg @instr") + (assert (is oarg nil) "loop: can't take oarg in @instr") + (assert (is arg nil) "loop: can't take arg in @instr") (yield `(jump (,(- stack.0 1 pc) offset)))) loop-if (do (trace "cvt0" "loop-if: " instr " => " (- stack.0 1)) - (assert (is oarg nil) "loop-if: can't take oarg @instr") + (assert (is oarg nil) "loop-if: can't take oarg in @instr") (yield `(jump-if ,arg.0 (,(- stack.0 1 pc) offset)))) loop-unless (do (trace "cvt0" "loop-if: " instr " => " (- stack.0 1)) - (assert (is oarg nil) "loop-unless: can't take oarg @instr") + (assert (is oarg nil) "loop-unless: can't take oarg in @instr") (yield `(jump-unless ,arg.0 (,(- stack.0 1 pc) offset)))) ;else (yield instr)))) |