suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug in definition of match-define.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-20 11:30:20 -04:00
parent 00383c4c5d
commit 0a5ff7fddd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/match/match-internal-func.ss
View File

@ -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])