Переглянути джерело

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
 #endif
   PrintChar('(');
   PrintChar('(');
   PrintObject(Car(x));
   PrintObject(Car(x));
-  while ((x = Cdr(x))) {
+  while ((x = Cdr(x)) != NIL) {
     if (!ISATOM(x)) {
     if (!ISATOM(x)) {
       PrintChar(' ');
       PrintChar(' ');
       PrintObject(Car(x));
       PrintObject(Car(x));