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

490

Browse Source
This commit is contained in:
Kartik K. Agaram 2015-01-02 15:19:59 -08:00
parent 047fe3f0ad
commit 4ccca66745
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mu.arc
View File

@ -464,14 +464,14 @@
(continue))
jump-if
(let flag (m arg.0)
(trace "jump" "checking that " flag " is t")
(trace "jump" "checking " flag)
(when (is t flag)
(= pc.routine* (+ 1 pc.routine* (v arg.1)))
(trace "jump" "jumping to " pc.routine*)
(continue)))
jump-unless ; convenient helper
(let flag (m arg.0)
(trace "jump" "checking " flag)
(trace "jump" "checking ~" flag)
(when (no flag)
(= pc.routine* (+ 1 pc.routine* (v arg.1)))
(trace "jump" "jumping to " pc.routine*)