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

fix `raco ctool -e' for syntax taints

Browse Source 
Merge to 5.1.2
(cherry picked from commit 8504996862)
This commit is contained in:
Matthew Flatt 2011-07-20 14:09:27 -06:00 committed by Eli Barzilay
parent eddf893dc6
commit f87c5acdf9
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/compiler/src2src.rkt
View File

@ -1576,7 +1576,7 @@
norm?)))) norm?))))
(define (parse-let % rec? stx env loop) (define (parse-let % rec? stx env loop)
(syntax-case stx () (syntax-case (syntax-disarm stx code-insp) ()
[(_ ([vars rhs] ...) . body) [(_ ([vars rhs] ...) . body)
(let* ([varses (syntax->list (syntax (vars ...)))] (let* ([varses (syntax->list (syntax (vars ...)))]
[rhses (syntax->list (syntax (rhs ...)))] [rhses (syntax->list (syntax (rhs ...)))]