conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bigfix] circular-list? 

Fix a bug in circular-list?
This commit is contained in:
koba-e964 2014-03-17 10:03:29 +09:00
parent 00d92c79bf
commit 21b17cfd59
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/srfi/1.scm
View File

@ -55,7 +55,7 @@
(define (circular-list? x) (define (circular-list? x)
(and (pair? x) (and (pair? x)
(let rec ((lst (cdr x))) (let rec ((lst (cdr x)))
(cond ((not-pair?) #f) (cond ((not-pair? lst) #f)
((null? lst) #f) ((null? lst) #f)
((eq? x lst) #t) ((eq? x lst) #t)
(else (rec (cdr lst))))))) (else (rec (cdr lst)))))))