original commit: a2af9ab65156059d53029cbb78ecbc73e021eab8
This commit is contained in:
Matthew Flatt 2001-06-29 22:16:49 +00:00
parent bda81cc9bd
commit b3026df612

View File

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