From b997f8b0f77064e660c60ffb390266be4553b9e0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 29 Nov 2007 23:02:23 +0000 Subject: [PATCH] Use symbolic comparison for => in match, to handle new bindings from `cond'. svn: r7864 --- collects/mzlib/private/match/gen-match.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/match/gen-match.ss b/collects/mzlib/private/match/gen-match.ss index 0b272b8c4b..a1ec48e096 100644 --- a/collects/mzlib/private/match/gen-match.ss +++ b/collects/mzlib/private/match/gen-match.ss @@ -34,7 +34,7 @@ ;; returns three values representing the pattern, the body and the failure symbol (define (parse-clause clause) - (syntax-case clause (=>) + (syntax-case* clause (=>) (lambda (a b) (eq? (syntax-e a) (syntax-e b))) [(pat) (match:syntax-err clause "missing action for pattern")] [(pat (=> fail-sym))