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

Handle `letrec-syntaxes+values' in free-var computation.

Browse Source 
svn: r9111
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-29 16:35:31 +00:00
parent a4f70641b9
commit 74a000d1ef
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/syntax/free-vars.ss
View File

@ -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 ...))))]))