From 6e870cd6d3b2f8eea8b150a0a18bdb655e481a57 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 5 Feb 2016 22:52:50 -0500
Subject: [PATCH] Expand top-level program as if it was a lambda body, to allow
 begin splicing

---
 cyclone.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cyclone.scm b/cyclone.scm
index 6c0d3259..984a3b22 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -113,7 +113,12 @@
       (macro:load-env! *defined-macros* (create-environment '() '()))
 
       ;; Expand macros
-      (set! input-program (expand input-program (macro:get-env)))
+      (set! input-program 
+        ((if program? 
+             expand-lambda-body
+             expand)
+         input-program 
+         (macro:get-env)))
       (trace:info "---------------- after macro expansion:")
       (trace:info input-program) ;pretty-print