original commit: bc7f7ad1e6fcfbe116d05ff36cdefe0148ede5c8
This commit is contained in:
Matthew Flatt 2005-02-14 14:50:56 +00:00
parent c7a0079a1a
commit 31e4a765a9

View File

@ -173,13 +173,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)))))