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

more mzlib scribbling

Browse Source 
svn: r8552

original commit: 15304f587024343e50fb72b6baed849459d76b6b
This commit is contained in:
Matthew Flatt 2008-02-06 04:10:54 +00:00
parent b047cf8e64
commit 5f53e41e97
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/list.ss
View File

@ -21,7 +21,11 @@
filter filter
sort)) sort)
(only scheme/list
cons?
empty?
empty))
(provide first (provide first
second second
@ -112,9 +116,5 @@
(if (pair? x) (if (pair? x)
(loop x (cdr x)) (loop x (cdr x))
l)) l))
(raise-type-error 'last-pair "pair" l))) (raise-type-error 'last-pair "pair" l))))
(define cons? (lambda (x) (pair? x)))
(define empty? (lambda (x) (null? x)))
(define empty '()))