sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix bugs

Browse source
This commit is contained in:
Justine Tunney 2021-12-06 08:36:30 -08:00
parent aa43e770c3
commit d7f5c287eb
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp.js
View file

@ -51,7 +51,7 @@ function Cdr(x) {
if (x < 0) { if (x < 0) {
return Get(x + 1); return Get(x + 1);
} else { } else {
Throw(x + 1); Throw(x);
} }
} }
@ -157,7 +157,7 @@ function Copy(x, m, k) {
function Evlis(m, a) { function Evlis(m, a) {
return m ? Cons(Eval(Car(m), a), return m ? Cons(Eval(Car(m), a),
Evlis(Cdr(m), a)) : 0; Evlis(Cdr(m), a)) : m;
} }
function Pairlis(x, y, a) { function Pairlis(x, y, a) {
@ -257,7 +257,6 @@ ReadChar() {
dx = c; dx = c;
return t; return t;
} else { } else {
PrintChar('\n');
exit(0); exit(0);
} }
} }