diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-02 02:25:32 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-02 02:25:32 -0700 |
| commit | 0cd4bfc8ae1cfac647b3ed1669dd1338458f1ef6 (patch) | |
| tree | 6fce806d4a598bb62e9cf0935943dfa1879346b9 | |
| parent | d90d6629a9090b5d7bcd2b227f671fa4a2ac92dc (diff) | |
| download | mu-0cd4bfc8ae1cfac647b3ed1669dd1338458f1ef6.tar.gz | |
46 - there's no continue bug after all in anarki
| -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)) |