diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss index c0a2a0b..47c45d9 100644 --- a/collects/mzlib/match.ss +++ b/collects/mzlib/match.ss @@ -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)))))