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

.

Browse Source 
original commit: 0e9b22c72439c9d28836196a552ed270cfc92b8f
This commit is contained in:
Matthew Flatt 1999-05-11 23:59:49 +00:00
parent 10b0c09a25
commit 2a655c1c48
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/functior.ss
View File

@ -181,7 +181,7 @@
[(not (pair? l))
(raise (make-exn:application:mismatch
(format "~a: second argument must be a (proper) list; given ~e" name list)
((debug-info-handler))
(current-continuation-marks)
list))]
[(f (car l)) (if whole-list? l (car l))]
[else (loop (cdr l))]))))))
@ -209,7 +209,7 @@
frest))]
[else (raise (make-exn:application:mismatch
(format "filter: second argument must be a (proper) list; given ~e" list)
((debug-info-handler))
(current-continuation-marks)
list))])))))
(define first (polymorphic (lambda (x)