Fix typo in LENGTH=?.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 8f0aa1c6c31813ce14c42b54886178327bffd5ab..9de53428f90ddfcb9687cda61c91c422d4e81fea 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -264,7 +264,7 @@ USA.
        ((index-fixnum? left) (%length=? left right))
        ((null? left) (cond ((pair? right) #f)
                            ((index-fixnum? right) (fix:zero? right))
-                           ((null right) #t)
+                           ((null? right) #t)
                            (else (error:wrong-type-argument right "index fixnum or list" 'length=?))))
        (else (error:wrong-type-argument left "index fixnum or list" 'length=?))))