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

More experimental changes

Browse source
This commit is contained in:
Justin Ethier 2016-11-10 18:56:44 +00:00
parent a6eafa7869
commit 965aadc0d6
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

@ -752,7 +752,9 @@
(let ((formals (ast:lambda-formals->list exp))) (let ((formals (ast:lambda-formals->list exp)))
(for-each (for-each
(lambda (e) (lambda (e)
(analyze:find-inlinable-vars e formals)) ;; TODO: experimental change, append args to formals instead
;; of just passing formals along
(analyze:find-inlinable-vars e (append formals args)))
(ast:lambda-body exp)))) (ast:lambda-body exp))))
((const? exp) #t) ((const? exp) #t)
((quote? exp) #t) ((quote? exp) #t)