Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-05 20:26:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix and attempt to improve (if) optimization

Browse source
This commit is contained in:
Justin Ethier 2016-07-29 19:05:50 -04:00
parent 0fb83a8100
commit 6643eeb083
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -450,7 +450,9 @@
((if? exp)
(cond
((not (if->condition exp))
(opt:contract (if->else exp)))
(opt:inline-prims (if->else exp) refs)) ;; Always false, so replace with else
((const? (if->condition exp))
(opt:inline-prims (if->then exp) refs)) ;; Always true, replace with then
(else
`(if ,(opt:inline-prims (if->condition exp) refs)
,(opt:inline-prims (if->then exp) refs)