瀏覽代碼

Fix regression in C code for PrintList()

Fixes #11
Justine Tunney 3 年之前
父節點
當前提交
532b92688e
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp.c

+ 1 - 1
lisp.c

@@ -241,7 +241,7 @@ void PrintList(int x) {
 #endif
   PrintChar('(');
   PrintObject(Car(x));
-  while ((x = Cdr(x))) {
+  while ((x = Cdr(x)) != NIL) {
     if (!ISATOM(x)) {
       PrintChar(' ');
       PrintObject(Car(x));