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 clang issue

Browse source
This commit is contained in:
Justine Tunney 2021-12-13 07:40:04 -08:00
parent fe04b145b5
commit 334ec21213
1 changed files with 17 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
lisp.js
View file

@ -239,24 +239,26 @@ function Funtrace(f, l, x, a) {
}
function Indent(i) {
if (!i) return;
PrintChar(Ord(' '));
Indent(i - 1);
if (i) {
PrintChar(Ord(' '));
Indent(i - 1);
}
}
function Dump(a) {
if (!a) return;
Dump(Cdr(a));
PrintChar(Ord('('));
Print(kDefine);
PrintChar(Ord(' '));
Print(Car(Car(a)));
PrintChar(Ord(' '));
PrintChar(Ord('.'));
PrintChar(Ord(' '));
Print(Cdr(Car(a)));
PrintChar(Ord(')'));
PrintChar(Ord('\n'));
if (a) {
Dump(Cdr(a));
PrintChar(Ord('('));
Print(kDefine);
PrintChar(Ord(' '));
Print(Car(Car(a)));
PrintChar(Ord(' '));
PrintChar(Ord('.'));
PrintChar(Ord(' '));
Print(Cdr(Car(a)));
PrintChar(Ord(')'));
PrintChar(Ord('\n'));
}
}
function LoadBuiltins() {