From ce6b24cc103cce6d8cc6cd13dffcd0ce3a57e6eb Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 25 May 2017 18:54:55 -0400 Subject: [PATCH] WIP --- scheme/cyclone/cps-optimizations.sld | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 07d739c0..98ced815 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -857,18 +857,20 @@ (with-fnc (ast:lambda-id (car exp)) (lambda (fnc) (adbf:side-effects fnc)))) ) -(trace:error `(DEBUG2 ,exp)) +;(trace:error `(DEBUG2 ,exp)) (let* ((new-exp (car (ast:lambda-body (cadr exp)))) (old-if (car (ast:lambda-body (car exp)))) ; TODO: what about nested if's? may need another pass above to make sure ;; the if is simple enough to inline +TODO: can logic from inlinable-top-level-lambda? be repurposed to +scan old-if to make sure everything is inlinable??? (new-if `(Cyc-if ,(if->condition old-if) ,(cadr (if->then old-if)) ,(cadr (if->else old-if)))) (old-k (car (ast:lambda-formals->list (car exp)))) (old-arg (car (ast:lambda-formals->list (cadr exp)))) ) - (trace:error `(DEBUG if inline candidate + #;(trace:error `(DEBUG if inline candidate ,exp old-k: ,old-k