From 81b7aea7d9c023b0b16f82216572f167e1a21707 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Mar 2007 01:55:21 +0000 Subject: [PATCH] fix expansion of match-define to use define-values instead of begin with set! svn: r5786 --- collects/mzlib/private/match/match-internal-func.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/private/match/match-internal-func.ss b/collects/mzlib/private/match/match-internal-func.ss index ba119f7f0d..dc9d8d5ee6 100644 --- a/collects/mzlib/private/match/match-internal-func.ss +++ b/collects/mzlib/private/match/match-internal-func.ss @@ -95,10 +95,9 @@ (lambda (sf bv) (set! **match-bound-vars** bv) (with-syntax ([((vars . vals) ...) (reverse bv)]) - #'(begin (set! vars vals) ...))))] + #'(values vals ...))))] [(vars ...) (map car (reverse **match-bound-vars**))]) - #'(begin - (define vars #f) ... + #'(define-values (vars ...) (let ([the-exp exp]) compiled-match))))])) ) \ No newline at end of file