[bigfix] circular-list?

Fix a bug in circular-list?
2014-03-17 10:03:29 +09:00 · 2014-03-17 10:03:29 +09:00 · 21b17cfd59
parent 00d92c79bf
commit 21b17cfd59
1 changed files with 1 additions and 1 deletions
--- a/piclib/srfi/1.scm
+++ b/piclib/srfi/1.scm
@ -55,7 +55,7 @@
  (define (circular-list? x)
    (and (pair? x)
 	 (let rec ((lst (cdr x)))
-	   (cond ((not-pair?) #f)
+	   (cond ((not-pair? lst) #f)
 		 ((null? lst) #f)
 		 ((eq? x lst) #t)
 		 (else (rec (cdr lst)))))))