From 6018c35cc83cae7daca1b61d9104f184f602c8e1 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 20 Jan 2008 14:37:47 +0000 Subject: [PATCH] Fix bug with use of lambda instead of #%plain-lambda. svn: r8373 --- collects/syntax/free-vars.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/syntax/free-vars.ss b/collects/syntax/free-vars.ss index 4c62bf5e58..6b261de50a 100644 --- a/collects/syntax/free-vars.ss +++ b/collects/syntax/free-vars.ss @@ -63,12 +63,12 @@ free))] [(case-lambda [formals expr ...] ...) (merge (map free-vars (syntax->list - #'((lambda formals expr ...) ...))))] + #'((#%plain-lambda formals expr ...) ...))))] [(let-values ([(id ...) rhs] ...) expr ...) - (merge (cons (free-vars #'(lambda (id ... ...) expr ...)) + (merge (cons (free-vars #'(#%plain-lambda (id ... ...) expr ...)) (map free-vars (syntax->list #'(rhs ...)))))] [(letrec-values ([(id ...) rhs] ...) expr ...) - (free-vars #'(lambda (id ... ...) rhs ... expr ...))] + (free-vars #'(#%plain-lambda (id ... ...) rhs ... expr ...))] [(_ expr ...) ;; if, begin, begin0, set!, #%app, #%variable-reference, with-continuation-mark (merge (map free-vars (syntax->list #'(expr ...))))]))