diff --git a/lisp.js b/lisp.js index f5cd9c0..cd1a4ea 100755 --- a/lisp.js +++ b/lisp.js @@ -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() {