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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-05-11 03:36:18 -04:00
parent ed1c22af5b
commit 3c41a176f4
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/optimize-cps.sld
View file

@ -103,6 +103,10 @@
,(analyze (if->else exp) lid))) ,(analyze (if->else exp) lid)))
; Application: ; Application:
((app? exp)
(map (lambda (e)
(analyze-cps e lid))
exp))
;TODO: ((app? exp) (map (lambda (e) (wrap-mutables e globals)) exp)) ;TODO: ((app? exp) (map (lambda (e) (wrap-mutables e globals)) exp))
; Nothing to analyze for these? ; Nothing to analyze for these?