Make sure to flatten items in a body.

diff --git a/src/runtime/syntax-items.scm b/src/runtime/syntax-items.scm
index f092dbcb424722c64064c3b733ab10c73a35f613..9adfdd39174e9a155831ecd5baba6d14c42d2919 100644 (file)
--- 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