.
original commit: a2af9ab65156059d53029cbb78ecbc73e021eab8
This commit is contained in:
parent
bda81cc9bd
commit
b3026df612
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user