瀏覽代碼

FIx clang issue

Justine Tunney 3 年之前
父節點
當前提交
334ec21213
共有 1 個文件被更改,包括 17 次插入15 次删除
  1. 17 15
      lisp.js

+ 17 - 15
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() {