.
original commit: bc7f7ad1e6fcfbe116d05ff36cdefe0148ede5c8
This commit is contained in:
parent
c7a0079a1a
commit
31e4a765a9
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user