suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: e0e63aacee7cb842635077a88d4f87aef0c54ed2
This commit is contained in:
Matthew Flatt 2002-07-09 00:27:19 +00:00
parent 53e9c04130
commit da9689d146
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/list.ss
View File

@ -318,9 +318,10 @@
(polymorphic (polymorphic
(lambda (l) (lambda (l)
(if (pair? l) (if (pair? l)
(if (pair? (cdr l)) (let loop ((l l) (x (cdr l)))
(last-pair (cdr l)) (if (pair? x)
l) (loop x (cdr x))
l))
(raise-type-error 'last-pair "pair" l))))) (raise-type-error 'last-pair "pair" l)))))
(define cons? (lambda (x) (pair? x))) (define cons? (lambda (x) (pair? x)))