From 4e83e93cd7879f62bcd357291d61a73753c44b50 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 26 May 2017 14:21:00 +0000 Subject: [PATCH] Added TODO --- scheme/cyclone/cps-optimizations.sld | 1 + 1 file changed, 1 insertion(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index ed2f0419..f3304c95 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -857,6 +857,7 @@ (= 1 (length (ast:lambda-formals->list (car exp)))) (= 1 (length (ast:lambda-formals->list (cadr exp)))) (if? (car (ast:lambda-body (car exp)))) +;; TODO: think we can get rid of this simplification now ;; Simplification, for now only allow then/else that call a cont ;; immediately, to prevent having to scan/rewrite those expressions (let ((if-exp (car (ast:lambda-body (car exp))))