From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Feb 2018 01:48:08 +0000 (-0800)
Subject: Make sure to flatten items in a body.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~232
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf88bd4bf08856c33f4ae20f01adf6888a1003ef;p=mit-scheme.git

Make sure to flatten items in a body.
---

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