diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index a4b4f6eb..232bfb0b 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -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)