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

.

Browse Source 
original commit: 8f70d5528d70e7705bc4054b17d32ee8a1b4d07e
This commit is contained in:
Matthew Flatt 1998-09-10 19:51:18 +00:00
parent 6ee80914a7
commit a7ba5fecf4
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

@ -179,7 +179,7 @@
(cond
[(null? l) #f]
[(not (pair? l))
(raise (make-exn:application:list
(raise (make-exn:application:mismatch
(format "~a: second argument must be a (proper) list; given ~e" name list)
((debug-info-handler))
list))]
@ -207,7 +207,7 @@
(if keep?
(cons (car l) frest)
frest))]
[else (raise (make-exn:application:list
[else (raise (make-exn:application:mismatch
(format "filter: second argument must be a (proper) list; given ~e" list)
((debug-info-handler))
list))])))))