From b3026df612a57233cf583e1e8ab31911a292d0eb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 29 Jun 2001 22:16:49 +0000 Subject: [PATCH] . original commit: a2af9ab65156059d53029cbb78ecbc73e021eab8 --- collects/mzlib/match.ss | 2 -- 1 file changed, 2 deletions(-) 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)))))