Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-11-13 19:05:28 -05:00
parent 67071a1761
commit ef647082e6
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1718,7 +1718,7 @@
(body (ast:lambda-body exp))
(new-free-vars
(difference
(difference (free-vars body) (cons 'Cyc-seq (ast:lambda-formals->list exp)))
(difference (free-vars body) (cons 'Cyc-seq (cons 'Cyc-local-set! (ast:lambda-formals->list exp))))
globals))
(formals (list->lambda-formals
(cons new-self-var (ast:lambda-formals->list exp))
@ -1787,6 +1787,8 @@
; TODO: maybe just call a function to 'flatten' seq's
((equal? 'Cyc-seq fn)
`(Cyc-seq ,@args))
((equal? 'Cyc-local-set! fn)
`(Cyc-local-set! ,@args))
((ast:lambda? fn)
(cond
;; If the lambda argument is not used, flag so the C code is
@ -1814,7 +1816,7 @@
(let* ((body (ast:lambda-body fn))
(new-free-vars
(difference
(difference (free-vars body) (cons 'Cyc-seq (ast:lambda-formals->list fn)))
(difference (free-vars body) (cons 'Cyc-seq (cons 'Cyc-local-set! (ast:lambda-formals->list fn))))
globals))
(new-free-vars? (> (length new-free-vars) 0)))
(if new-free-vars?