mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 22:37:38 +02:00
More experimental changes
This commit is contained in:
parent
a6eafa7869
commit
965aadc0d6
1 changed files with 3 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue