From 8e32a64426775e3b36d57c3ea6642df6d4288712 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 12 Jan 2014 07:18:44 +0900
Subject: [PATCH] Accepting begin in addition to body library decl in
 analyze-module.

---
 lib/chibi/modules.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/modules.scm b/lib/chibi/modules.scm
index ca72b82f..feca5177 100644
--- a/lib/chibi/modules.scm
+++ b/lib/chibi/modules.scm
@@ -84,7 +84,7 @@
            (lp (cdr ls) res))
           ((include)
            (lp (append (map include-source (cdar ls)) (cdr ls)) res))
-          ((body)
+          ((body begin)
            (let lp2 ((ls2 (cdar ls)) (res res))
              (cond
               ((pair? ls2)