From 7bad1228217f12ea5e80f19e506da4ba25eac7ee Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 7 Jul 2017 17:47:24 +0000
Subject: [PATCH] WIP

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

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 7d5f5161..a2568261 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -825,6 +825,15 @@
                     (c:body cargs)
                     ");"))))))
 
+        ((equal? 'Cyc-seq fun)
+         (let ((exps (foldr
+                       (lambda (expr acc)
+                         (c:append 
+                           acc
+                           (c-compile-exp expr append-preamble cont trace cps?)))
+                       (c-code "")
+                       args)))
+          exps))
         (else
          (error `(Unsupported function application ,exp)))))))