From bf88bd4bf08856c33f4ae20f01adf6888a1003ef Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Feb 2018 17:48:08 -0800
Subject: [PATCH] Make sure to flatten items in a body.

---
 src/runtime/syntax-items.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/syntax-items.scm b/src/runtime/syntax-items.scm
index f092dbcb4..9adfdd391 100644
--- a/src/runtime/syntax-items.scm
+++ b/src/runtime/syntax-items.scm
@@ -146,7 +146,7 @@ USA.
 (define (body-item items)
   (expr-item
    (lambda ()
-     (output/body (map compile-expr-item items)))))
+     (output/body (map compile-expr-item (flatten-items items))))))
 
 (define (if-item predicate consequent alternative)
   (expr-item
-- 
2.25.1