slight refactor of single function

2020-06-11 17:20:26 +12:00 · 2020-06-11 17:20:26 +12:00 · 27cf7b6a57
commit 27cf7b6a57
parent a9c4660e11
1 changed files with 7 additions and 5 deletions
--- a/vm.rkt
+++ b/vm.rkt
@ -165,11 +165,13 @@
   (lambda (m)
      (let ([c (get-carry m)]
            [z (get-zero 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)]))))
+         (if (case cc
+               [(NZ) (not z)]
+               [(Z)  z]
+               [(NC) (not c)]
+               [(C)  c])
+             (set-pc addr m)
+             m))))

 (define (jp-uncond addr)
   (lambda (m)