#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (ice-9 format)
- #:use-module (language tree-il eval)
#:export (compile-tree-il
compile-progn
compile-eval-when-compile
body))))
(make-const loc name))))
(when (fluid-ref toplevel?)
- (eval-tree-il tree-il))
+ (eval tree-il (current-module)))
tree-il)))
(else (report-error loc "bad defmacro" args))))