From da2f2bb05f2e1fce614b04e24d9ab336e617bd14 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 26 May 2017 15:41:46 +0000 Subject: [PATCH] Issue #201 - disabling for now --- scheme/cyclone/cps-optimizations.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index f3304c95..0d8de0c2 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -850,7 +850,8 @@ (ast:lambda-formals->list (car exp)))) (opt:inline-prims (car (ast:lambda-body (car exp))) refs)) ;; Issue #201 - Attempt to identify case where an if can be inlined - ((and (= (length exp) 2) + ((and #f ;; TODO: Disabling for now, see issue for more info + (= (length exp) 2) (ast:lambda? (car exp)) (ast:lambda? (cadr exp)) (ast:lambda-has-cont (car exp))