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

.

Browse Source 
original commit: a6413ec7a9c43f748e343f5cae96e21270861803
This commit is contained in:
Robby Findler 2004-06-21 22:01:15 +00:00
parent af2420010d
commit 9317ed46dc
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/match.ss
View File

@ -145,13 +145,13 @@
((val)
(raise
(make-exn:misc:match
(format "match: no matching clause for ~e" val)
(string->immutable-string (format "match: no matching clause for ~e" val))
(current-continuation-marks)
val)))
((val expr)
(raise
(make-exn:misc:match
(format "match: no matching clause for ~e: ~s" val expr)
(string->immutable-string (format "match: no matching clause for ~e: ~s" val expr))
(current-continuation-marks)
val)))))