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

.

Browse Source 
original commit: a2af9ab65156059d53029cbb78ecbc73e021eab8
This commit is contained in:
Matthew Flatt 2001-06-29 22:16:49 +00:00
parent bda81cc9bd
commit b3026df612
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/match.ss
View File

@ -117,14 +117,12 @@
(raise (raise
(make-exn:misc:match (make-exn:misc:match
(format "match: no matching clause for ~s" val) (format "match: no matching clause for ~s" val)
'match (syntax-source-module (quote-syntax here))
(current-continuation-marks) (current-continuation-marks)
val))) val)))
((val expr) ((val expr)
(raise (raise
(make-exn:misc:match (make-exn:misc:match
(format "match: no matching clause for ~s: ~s" val expr) (format "match: no matching clause for ~s: ~s" val expr)
'match (syntax-source-module (quote-syntax here))
(current-continuation-marks) (current-continuation-marks)
val))))) val)))))