From 9d606f9d432274a300de0e0a2e0f112e8e12ab1a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 5 Sep 2018 17:45:02 -0400
Subject: [PATCH] Fix for AST output for wrap-mutables

---
 scheme/cyclone/transforms.sld | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index b2732f4e..36cf7c3c 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -734,13 +734,14 @@
         body-exp
         ;(list body-exp)
         (if (is-mutable? (car formals))
-            (list ;(ast:%make-lambda
-                  ;  id
-                  (ast:make-lambda
-                    (list (car formals))
-                    (wrap-mutable-formals id (cdr formals) body-exp has-cont)
-                    has-cont)
-                  `(cell ,(car formals)))
+            (list
+              (list ;(ast:%make-lambda
+                    ;  id
+                    (ast:make-lambda
+                      (list (car formals))
+                      (wrap-mutable-formals id (cdr formals) body-exp has-cont)
+                      has-cont)
+                    `(cell ,(car formals))))
             (wrap-mutable-formals id (cdr formals) body-exp has-cont))))
   
   (cond