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

Be more careful about optimizing-out functions

Browse source
This commit is contained in:
Justin Ethier 2016-03-23 22:52:08 -04:00
parent b809dcb908
commit dbf77ce999
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/transforms.sld
View file

@ -1503,7 +1503,13 @@
(equal? (app->args body) (equal? (app->args body)
;(lambda->formals (car body)) ;(lambda->formals (car body))
(lambda->formals exp) (lambda->formals exp)
)) )
;; TODO: don't do it if args are used in the body
;; this won't work if we have any num other than 1 arg
(not (member
(car (lambda->formals exp))
(free-vars (car body))))
)
(cps-optimize-01 (car body))) (cps-optimize-01 (car body)))
(else (else
`(lambda ,(lambda->formals exp) `(lambda ,(lambda->formals exp)