;; (list newline (list current-error-port))
(list 'load (list string-append '*mes-prefix* (module->file module)))))))
+(define include load)
+(define-macro (include-from-path file)
+ (list 'load (list string-append "module/" file)))
+
(mes-use-module (srfi srfi-0))
(mes-use-module (mes base))
(mes-use-module (mes scm))