From 9252ecf47e8a53acbae8132c49e33bb2cc62017a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Mar 2010 16:21:50 -0500 Subject: [PATCH] =?utf8?q?Fix=20typo=20in=20LENGTH=3D=3F.?= --- src/runtime/list.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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=?)))) -- 2.25.1