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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-11-10 19:03:54 -05:00
parent 965aadc0d6
commit ac021ef35e
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

@ -754,7 +754,9 @@
(lambda (e)
;; TODO: experimental change, append args to formals instead
;; of just passing formals along
(analyze:find-inlinable-vars e (append formals args)))
;(analyze:find-inlinable-vars e (append formals args)))
;; try this for now, do a full make then re-make and verify everything works
(analyze:find-inlinable-vars e formals))
(ast:lambda-body exp))))
((const? exp) #t)
((quote? exp) #t)