From 88f0db1547c57c85106b9e7275166ad187d5d14f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 19 Oct 2018 13:33:47 -0400
Subject: [PATCH] Fix TODO

---
 scheme/cyclone/cgen.sld | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 57d74096..4f2e0632 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -1537,11 +1537,12 @@
                            (c-code 
                              ;; Only trace when entering initial defined function
                              (cond
-                               (has-closure? "")
+                               (has-closure?
+                                (if has-loop? "\n while(1) {\n" "")
+                               )
                                (else
                                  (string-append
                                    (st:->code trace)
-                                   TODO: does not work for calls-self, need to invoke that elsewhere...
                                    (if has-loop? "\n while(1) {\n" "")
                                  ))))
                            body)