X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=mars.scm;fp=mars.scm;h=677d754459360249224fe778e3175d70ac7b29d4;hp=e97d2ba7a1efe90b601709981ed6cc2faafeb3fe;hb=3658516d8dd5cea71cac2a7637f5470b5b87b228;hpb=d040fca6113681ee54370453c42c52ae1f2a9064

diff --git a/mars.scm b/mars.scm
index e97d2ba..677d754 100644
--- a/mars.scm
+++ b/mars.scm
@@ -283,7 +283,7 @@
         ((SLT)
          (list (core '->addr (+ ptr (if (compare-instrs core A-ptr B-ptr modifier <) 2 1)))))
         ((SPL)
-         (list (core '->addr (+ ptr 1) (core '->addr A-ptr))))
+         (list (core '->addr (+ ptr 1)) (core '->addr A-ptr)))
         ((NOP)
          (list (core '->addr (+ ptr 1))))
         (else