From 8ba1954ac35aa1233fa07091b7efbf4af42fc1bc Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 7 Jul 2017 18:44:13 -0400
Subject: [PATCH] WIP

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

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index a2568261..c3491d6a 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -828,9 +828,12 @@
         ((equal? 'Cyc-seq fun)
          (let ((exps (foldr
                        (lambda (expr acc)
-                         (c:append 
-                           acc
-                           (c-compile-exp expr append-preamble cont trace cps?)))
+                         ;(c:append 
+                         (let ((cp1 (c-compile-exp expr append-preamble cont trace cps?))
+                               (cp2 acc))
+                           (c-code/vars 
+                             (string-append (c:body cp1) ";" (c:body cp2))
+                             (append (c:allocs cp1) (c:allocs cp2)))))
                        (c-code "")
                        args)))
           exps))