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

add marks on quoted identifiers so that, when they are used later, they bind properly

Browse Source
This commit is contained in:
Robby Findler 2012-02-20 21:29:34 -06:00
parent b4af99babb
commit 7c3464f9d7
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/plai/gc2/mutator.rkt
View File

@ -168,7 +168,7 @@
(syntax-case stx ()
[(_ (id ...) body)
(let ([env-roots (syntax-parameter-value #'mutator-env-roots)])
(with-syntax ([(free-id ...) (find-referenced-locals env-roots stx)]
(with-syntax ([(free-id ...) (map syntax-local-introduce (find-referenced-locals env-roots stx))]
[(env-id ...) env-roots]
[closure (or (syntax-parameter-value #'mutator-name)
(syntax-local-name)