From 3658516d8dd5cea71cac2a7637f5470b5b87b228 Mon Sep 17 00:00:00 2001
From: plugd <plugd@thelambdalab.xyz>
Date: Mon, 11 May 2020 15:15:45 +0200
Subject: [PATCH] Fixed typo in SPL action.

Bug still remains, however.
---
 mars.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.20.1