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

.

Browse Source 
original commit: 64c7b69febb083d4413b56ddeca11aa74a1dcbc1
This commit is contained in:
Matthew Flatt 2001-06-18 18:09:43 +00:00
parent d879c502b0
commit 36175660bd
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/list.ss
View File

@ -218,7 +218,6 @@
[(not (pair? l)) [(not (pair? l))
(raise (make-exn:application:mismatch (raise (make-exn:application:mismatch
(format "~a: second argument must be a (proper) list; given ~e" name list) (format "~a: second argument must be a (proper) list; given ~e" name list)
name (syntax-source-module (quote-syntax here))
(current-continuation-marks) (current-continuation-marks)
list))] list))]
[(f (car l)) (if whole-list? l (car l))] [(f (car l)) (if whole-list? l (car l))]
@ -247,7 +246,6 @@
frest))] frest))]
[else (raise (make-exn:application:mismatch [else (raise (make-exn:application:mismatch
(format "filter: second argument must be a (proper) list; given ~e" list) (format "filter: second argument must be a (proper) list; given ~e" list)
'filter (syntax-source-module (quote-syntax here))
(current-continuation-marks) (current-continuation-marks)
list))]))))) list))])))))