From f2390130cc34e865b0914c2f57acf9dd1f5d2a4f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
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)