Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37: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) (lambda (e)
;; TODO: experimental change, append args to formals instead ;; TODO: experimental change, append args to formals instead
;; of just passing formals along ;; 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)))) (ast:lambda-body exp))))
((const? exp) #t) ((const? exp) #t)
((quote? exp) #t) ((quote? exp) #t)