Accepting begin in addition to body library decl in analyze-module.

This commit is contained in:
Alex Shinn 2014-01-12 07:18:44 +09:00
parent c8d2c6ab02
commit 8e32a64426

View file

@ -84,7 +84,7 @@
(lp (cdr ls) res)) (lp (cdr ls) res))
((include) ((include)
(lp (append (map include-source (cdar ls)) (cdr ls)) res)) (lp (append (map include-source (cdar ls)) (cdr ls)) res))
((body) ((body begin)
(let lp2 ((ls2 (cdar ls)) (res res)) (let lp2 ((ls2 (cdar ls)) (res res))
(cond (cond
((pair? ls2) ((pair? ls2)