Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update (free-vars) to include AST support

Browse source
This commit is contained in:
Justin Ethier 2018-09-05 12:51:21 -04:00
parent 7b76453591
commit cc1bfea6f0
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/transforms.sld
View file

@ -630,6 +630,9 @@
(define (search exp) (define (search exp)
(cond (cond
; Core forms: ; Core forms:
((ast:lambda? exp)
(difference (reduce union (map search (ast:lambda-body exp)) '())
(ast:lambda-formals->list exp)))
((const? exp) '()) ((const? exp) '())
((prim? exp) '()) ((prim? exp) '())
((quote? exp) '()) ((quote? exp) '())