From 0a5ff7fddd6dbbad9686396a53473d80067a5c53 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 20 Sep 2006 11:30:20 -0400 Subject: [PATCH] Fix bug in definition of match-define. --- collects/mzlib/private/match/match-internal-func.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/match/match-internal-func.ss b/collects/mzlib/private/match/match-internal-func.ss index 133961f8c7..ba119f7f0d 100644 --- a/collects/mzlib/private/match/match-internal-func.ss +++ b/collects/mzlib/private/match/match-internal-func.ss @@ -96,7 +96,7 @@ (set! **match-bound-vars** bv) (with-syntax ([((vars . vals) ...) (reverse bv)]) #'(begin (set! vars vals) ...))))] - [(vars ...) (reverse **match-bound-vars**)]) + [(vars ...) (map car (reverse **match-bound-vars**))]) #'(begin (define vars #f) ... (let ([the-exp exp])