X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=mars.scm;fp=mars.scm;h=a9ba7c54a274200769eb3d2292e2f8c224e3afca;hp=9610d10c791c47f08480589e484a1c285759f899;hb=47ac8e0ad3cc6cf75a637c1491059aaede68f4f4;hpb=7526b1f66f4c7a0d460d0e267b1eb4553c0d981b

diff --git a/mars.scm b/mars.scm
index 9610d10..a9ba7c5 100644
--- a/mars.scm
+++ b/mars.scm
@@ -262,15 +262,15 @@
         ((JMP)
          (list (core '->addr A-ptr)))
         ((JMZ)
-         (list (core '->addr (if (instr-zero? B-ptr modifier #f name)
+         (list (core '->addr (if (instr-zero? core B-ptr modifier #f name)
                                  A-ptr
                                  (+ ptr 1)))))
         ((JMN)
-         (list (core '->addr (if (not (instr-zero? B-ptr modifier #f name))
+         (list (core '->addr (if (not (instr-zero? core B-ptr modifier #f name))
                                  A-ptr
                                  (+ ptr 1)))))
         ((DJN)
-         (list (core '->addr (if (not (instr-zero? B-ptr modifier #t name))
+         (list (core '->addr (if (not (instr-zero? core B-ptr modifier #t name))
                                  A-ptr
                                  (+ ptr 1)))))
         ((SEQ CMP)