Support include and include-from-path.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:43:06 +0000 (15:43 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 18 Dec 2016 14:43:06 +0000 (15:43 +0100)
* module/mes/base-0.mes (include, include-from-path): New function.

module/mes/base-0.mes

index 28c0c2b4f3d32cb3d6b016eecbfac093398415ed..ffcbcf18d12d7d41b28f306f992ea9d2f2e670ee 100644 (file)
           ;; (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))