Support include and include-from-path.

[mes.git] / module / mes / base-0.mes

diff --git a/module/mes/base-0.mes b/module/mes/base-0.mes
index 28c0c2b4f3d32cb3d6b016eecbfac093398415ed..ffcbcf18d12d7d41b28f306f992ea9d2f2e670ee 100644 (file)
--- a/module/mes/base-0.mes
+++ b/module/mes/base-0.mes
@@ -147,6 +147,10 @@
           ;; (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))