Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Scan closure free variables

Browse source
This commit is contained in:
Justin Ethier 2021-03-17 22:32:56 -04:00
parent 80ad85883b
commit d36f0aeb64
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cps-optimizations.sld
View file

@ -2109,7 +2109,8 @@
((tagged-list? '%closure exp) ((tagged-list? '%closure exp)
(let* ((lam (closure->lam exp)) (let* ((lam (closure->lam exp))
(body (car (ast:lambda-body lam)))) (body (car (ast:lambda-body lam))))
(scan body))) (scan body)
(for-each scan (closure->fv exp))))
;; Global definition ;; Global definition
((define? exp) ((define? exp)
(scan (car (define->exp exp)))) (scan (car (define->exp exp))))