runtime/list: Fix append.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 384c5f13332b8209fea9a04e742209cc88987fd7..2a2f747ab787f16a2906a3d274e4c6c132ac1af3 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -562,9 +562,9 @@ USA.
    (named-lambda (append self . lists)
      self
      (let recur ((lists lists))
-       (if (pair? lists)               ; Recursion limited by number of args.
-          (%append-2 (car lists) (recur (cdr lists)))
-          '())))
+       (if (null? (cdr lists))         ; Recursion limited by number of args.
+          (car lists)
+          (%append-2 (car lists) (recur (cdr lists))))))
    (lambda () '())
    (lambda (l) l)
    %append-2))