From 7c3464f9d70fa8f1dd9446f8f9688a847b023e33 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 20 Feb 2012 21:29:34 -0600 Subject: [PATCH] add marks on quoted identifiers so that, when they are used later, they bind properly --- collects/plai/gc2/mutator.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/plai/gc2/mutator.rkt b/collects/plai/gc2/mutator.rkt index fbd4d52a69..51ab50e362 100644 --- a/collects/plai/gc2/mutator.rkt +++ b/collects/plai/gc2/mutator.rkt @@ -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)