From 276ffdd7ba7c4b246ae001b81a0b4f3f46b1938e Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 18 Dec 2016 15:43:06 +0100 Subject: [PATCH] Support include and include-from-path. * module/mes/base-0.mes (include, include-from-path): New function. --- module/mes/base-0.mes | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/module/mes/base-0.mes b/module/mes/base-0.mes index 28c0c2b4..ffcbcf18 100644 --- 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)) -- 2.31.1