From f5cd5d0fdfcb88cf81f25da08d22c788069d015e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 5 Feb 2016 22:52:39 -0500
Subject: [PATCH] Added expand-lambda-body

---
 scheme/cyclone/transforms.sld | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 6162cc35..78845554 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -110,6 +110,7 @@
     cell-get? 
     cell-get->cell 
     expand 
+    expand-lambda-body
     let=>lambda 
     isolate-globals 
     has-global? 
@@ -823,6 +824,10 @@
     (else
       (error "unknown exp: " exp))))
 
+;; Nicer interface to expand-body
+(define (expand-lambda-body exp env)
+  (expand-body '() exp env))
+
 ;; Helper to expand a lambda body, so we can splice in any begin's
 (define (expand-body result exp env)
   (cond