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

.

Browse Source 
original commit: 9e1b5cd5cf75f3935e40be59df0f9cc5ba8a8430
This commit is contained in:
Matthew Flatt 2001-07-16 01:00:51 +00:00
parent 8c12f9baeb
commit 4ff0476c11
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

@ -116,13 +116,13 @@
((val) ((val)
(raise (raise
(make-exn:misc:match (make-exn:misc:match
(format "match: no matching clause for ~s" val) (format "match: no matching clause for ~e" val)
(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 ~e: ~s" val expr)
(current-continuation-marks) (current-continuation-marks)
val))))) val)))))