vm.rkt

@@ -165,13 +165,11 @@
    (lambda (m)
       (let ([c (get-carry m)]
             [z (get-zero m)])
-         (if (case cc
-               [(NZ) (not z)]
-               [(Z)  z]
-               [(NC) (not c)]
-               [(C)  c])
-             (set-pc addr m)
-             m))))
+         (case cc
+            [(NZ) (if (not z) (set-pc addr m) m)]
+            [(Z) (if z (set-pc addr) m)]
+            [(NC) (if (not c) (set-pc addr) m)]
+            [(C) (if c (set-pc addr) m)]))))
 
 (define (jp-uncond addr)
    (lambda (m)