More experimental changes

This commit is contained in:
Justin Ethier 2016-11-10 18:56:44 +00:00
parent a6eafa7869
commit 965aadc0d6

View file

@ -752,7 +752,9 @@
(let ((formals (ast:lambda-formals->list exp)))
(for-each
(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))))
((const? exp) #t)
((quote? exp) #t)