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 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) { function Indent(i) {
if (!i) return; if (i) {
PrintChar(Ord(' ')); PrintChar(Ord(' '));
Indent(i - 1); Indent(i - 1);
}
} }
function Dump(a) { function Dump(a) {
if (!a) return; if (a) {
Dump(Cdr(a)); Dump(Cdr(a));
PrintChar(Ord('(')); PrintChar(Ord('('));
Print(kDefine); Print(kDefine);
PrintChar(Ord(' ')); PrintChar(Ord(' '));
Print(Car(Car(a))); Print(Car(Car(a)));
PrintChar(Ord(' ')); PrintChar(Ord(' '));
PrintChar(Ord('.')); PrintChar(Ord('.'));
PrintChar(Ord(' ')); PrintChar(Ord(' '));
Print(Cdr(Car(a))); Print(Cdr(Car(a)));
PrintChar(Ord(')')); PrintChar(Ord(')'));
PrintChar(Ord('\n')); PrintChar(Ord('\n'));
}
} }
function LoadBuiltins() { function LoadBuiltins() {