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

reformatting

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-01 16:52:45 -04:00
parent dd4c63ab07
commit 9e17a6d993
1 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,8 +101,8 @@
(identifier? #'pat) (identifier? #'pat)
#'(define pat exp)] #'(define pat exp)]
[(_ pat exp) [(_ pat exp)
(let* ((**match-bound-vars** '()) (let* ([**match-bound-vars** '()]
(compiled-match [compiled-match
(gen-match #'the-exp (gen-match #'the-exp
'() '()
#'((pat never-used)) #'((pat never-used))
@ -112,7 +112,7 @@
#`(begin #`(begin
#,@(map (lambda (x) #,@(map (lambda (x)
#`(set! #,(car x) #,(cdr x))) #`(set! #,(car x) #,(cdr x)))
(reverse bv))))))) (reverse bv)))))])
#`(begin #,@(map #`(begin #,@(map
(lambda (x) #`(define #,(car x) #f)) (lambda (x) #`(define #,(car x) #f))
(reverse **match-bound-vars**)) (reverse **match-bound-vars**))