Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Restrict contains-if check to "called-once" expansion

Browse source
This commit is contained in:
Justin Ethier 2019-01-10 13:36:05 -05:00
parent 84d9d114dc
commit 8648e66ca6
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

@ -1461,7 +1461,8 @@
;; case we do not want to beta-expand as a contraction
;; because duplicate instances of the same code may be
;; introduced, causing problems downstream.
(not (contains-if? (ast:lambda-body fnc)))
(and called-once?
(not (contains-if? (ast:lambda-body fnc))))
))
)))
(else #f)))