From 0c983a6a087d1e69b92c22e691615916956eacb3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 15 May 2015 13:03:07 -0400
Subject: [PATCH] Always create a meaningful top-level list of exprs

---
 trans.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/trans.scm b/trans.scm
index fea5f29d..cf915b00 100644
--- a/trans.scm
+++ b/trans.scm
@@ -899,7 +899,8 @@
        (append
          (reverse globals)
          (expand 
-          `((begin ,@(reverse exprs))))))
+          ;; 0 to ensure we always create a meaningful top-level
+          `((begin 0 ,@(reverse exprs))))))
       (else
        (cond
          ((define? (car top-lvl))