From 8c033a7909632d8976e70c1e2b8442837ae0f0b2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 13 Nov 2018 13:37:03 -0500
Subject: [PATCH] Added TODO

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

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index d824cb64..a8e8ae53 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -1181,6 +1181,15 @@
                        (c-code "")
                        args)))
           exps))
+        ((equal? 'let fun)
+         (let* ((vars/vals (cadr exp))
+                (body (caddr exp))
+               )
+          TODO: foldr over  vars/vals
+          TODO: compile body exp and combine with above
+          (c-compile-exp body append-preamble cont ast-id trace cps?)
+         )
+        )
         (else
          (error `(Unsupported function application ,exp)))))))