From f2390130cc34e865b0914c2f57acf9dd1f5d2a4f Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 30 Oct 2018 17:52:49 -0400 Subject: [PATCH] Added TODO --- scheme/cyclone/cps-optimizations.sld | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 8b7cb9fe..2f91947a 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1726,6 +1726,8 @@ (let ((fn (car exp)) (args (map cc (cdr exp)))) (cond + TODO: what about application of cyc-seq? does this only occur as a nested form? can we combine here or earlier?? + I think that is what is causing cc printing to explode exponentially! ((equal? 'Cyc-seq fn) `(Cyc-seq ,@args)) ((ast:lambda? fn)