From 8f8df24b1519386d7e98166003541e4a7a691513 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 4 Sep 2018 13:09:50 -0400
Subject: [PATCH] WIP, generate proper AST output from wrap-muts

---
 scheme/cyclone/transforms.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index c851f472..b1a799d6 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -749,7 +749,7 @@
        (wrap-mutable-formals 
          (ast:lambda-id exp)
          (ast:lambda-formals->list exp)
-         (wrap-mutables (car (ast:lambda-body exp)) globals)
+         (list (wrap-mutables (car (ast:lambda-body exp)) globals))
          (ast:lambda-has-cont exp))
        (ast:lambda-has-cont exp)
        )) ;; Assume single expr in lambda body, since after CPS phase