sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +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) {
return Get(x + 1);
} else {
Throw(x + 1);
Throw(x);
}
}
@ -157,7 +157,7 @@ function Copy(x, m, k) {
function Evlis(m, a) {
return m ? Cons(Eval(Car(m), a),
Evlis(Cdr(m), a)) : 0;
Evlis(Cdr(m), a)) : m;
}
function Pairlis(x, y, a) {
@ -257,7 +257,6 @@ ReadChar() {
dx = c;
return t;
} else {
PrintChar('\n');
exit(0);
}
}