From 18b81a75af1af46e84836f07d6a18df05d47dc1a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 7 May 2016 03:09:43 -0400
Subject: [PATCH] Wrap AST lambda bodies in a list

---
 cyclone.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/cyclone.scm b/cyclone.scm
index e3139a60..b1c2ea0e 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -209,9 +209,10 @@
                `(define call/cc
                  ,(ast:make-lambda 
                     '(k f) 
-                    (list 'f 'k 
-                          (ast:make-lambda '(_ result) 
-                                           '(k result)))))
+                    (list 
+                      (list 'f 'k 
+                            (ast:make-lambda '(_ result) 
+                                             (list '(k result)))))))
                  ;(lambda (k f) (f k (lambda (_ result) (k result)))))
                 cps)));)
          (else