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))
((include)
(lp (append (map include-source (cdar ls)) (cdr ls)) res))
((body)
((body begin)
(let lp2 ((ls2 (cdar ls)) (res res))
(cond
((pair? ls2)