From 74a000d1ef6c1935d401834a55919885533004f7 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 29 Mar 2008 16:35:31 +0000 Subject: [PATCH] Handle `letrec-syntaxes+values' in free-var computation. svn: r9111 --- collects/syntax/free-vars.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/syntax/free-vars.ss b/collects/syntax/free-vars.ss index 6b261de50a..1c79024e1a 100644 --- a/collects/syntax/free-vars.ss +++ b/collects/syntax/free-vars.ss @@ -69,6 +69,8 @@ (map free-vars (syntax->list #'(rhs ...)))))] [(letrec-values ([(id ...) rhs] ...) expr ...) (free-vars #'(#%plain-lambda (id ... ...) rhs ... expr ...))] + [(letrec-syntaxes+values stx-bindings ([(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 ...))))]))