diff options
-rw-r--r-- | mu.arc | 4 | ||||
-rw-r--r-- | mu.arc.t | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc b/mu.arc index 8264a5cb..bbe16c80 100644 --- a/mu.arc +++ b/mu.arc @@ -104,12 +104,12 @@ otype (ty (fn-oargs arg.0)) jmp - (do (= pc (+ pc (v arg.0))) ; relies on continue still incrementing (bug) + (do (= pc (+ pc (v arg.0))) ;? (prn "jumping to " pc) (continue)) jif (when (is t (m arg.0)) - (= pc (+ pc (v arg.1))) ; relies on continue still incrementing (bug) + (= pc (+ pc (v arg.1))) ;? (prn "jumping to " pc) (continue)) copy diff --git a/mu.arc.t b/mu.arc.t index e98fcc8e..91b3faaa 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -363,7 +363,7 @@ (reply (9 integer)) ((5 type) <- literal boolean) ((6 boolean) <- neq (4 type) (5 type)) - (jif (6 boolean) (6 offset)) + (jif (6 boolean) (4 offset)) ((7 boolean) <- arg) ((8 boolean) <- arg) ((9 boolean) <- or (7 boolean) (8 boolean)) |