fix expansion of match-define to use define-values instead of begin with set!

svn: r5786
2007-03-19 01:55:21 +00:00 · 2007-03-19 01:55:21 +00:00 · 81b7aea7d9
commit 81b7aea7d9
parent 5f7c85ac1e
1 changed files with 2 additions and 3 deletions
--- 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))))]))
  )