From b3ea8324bd6db5a483d15cc83bbd11f79893fbc9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 Jun 2018 19:00:06 -0400
Subject: [PATCH] Added comments, cleanup

---
 scheme/cyclone/cgen.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index e950a35a..4697a6b4 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -716,6 +716,7 @@
     (let* ((args     (app->args exp))
            (fun      (app->fun exp)))
       (cond
+        ;; Direct recursive call of top-level function
         ((and (pair? trace)
               (not (null? (cdr trace)))
               (adbv:direct-rec-call? (adb:get (cdr trace)))
@@ -724,8 +725,9 @@
               (equal? (car args) (cdr trace))
          )
          (let* ((cgen 
+                  ;; TODO: skip the closure, just cdr the cdr???
                   (c-compile-args
-                     args 
+                     (cdr args)
                      append-preamble 
                      ""
                      "" ;;this-cont