[bigfix] circular-list?

Fix a bug in circular-list?
2014-03-17 10:03:29 +09:00
parent 00d92c79bf
commit 21b17cfd59
1 changed files with 1 additions and 1 deletions
@@ -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)))))))