From 965aadc0d6b58200f57307383f76c28c554e4bd3 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 10 Nov 2016 18:56:44 +0000 Subject: [PATCH] More experimental changes --- scheme/cyclone/cps-optimizations.sld | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)