From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 7 Mar 2010 21:21:50 +0000 (-0500)
Subject: Fix typo in LENGTH=?.
X-Git-Tag: 20100708-Gtk~124
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9252ecf47e8a53acbae8132c49e33bb2cc62017a;p=mit-scheme.git

Fix typo in LENGTH=?.
---

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 8f0aa1c6c..9de53428f 100644
--- 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=?))))