The Lambda Lab
/
projects
/
jars.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed typo in SPL action.
[jars.git]
/
mars.scm
diff --git
a/mars.scm
b/mars.scm
index
e97d2ba
..
677d754
100644
(file)
--- 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)
((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
((NOP)
(list (core '->addr (+ ptr 1))))
(else