diff --git a/mes/module/mes/boot-0.scm b/mes/module/mes/boot-0.scm index e10caab9..5c5970d7 100644 --- a/mes/module/mes/boot-0.scm +++ b/mes/module/mes/boot-0.scm @@ -176,6 +176,10 @@ (define (,(car module) . arguments) (main (command-line))))) (define-macro (use-modules . rest) #t) + +(define-macro (@ mod-name var-name) var-name) +(define-macro (@@ mod-name var-name) var-name) + ;; end boot-03.scm ;; boot-04.scm diff --git a/mes/module/mes/boot-03.scm b/mes/module/mes/boot-03.scm index 7ae9a7a2..8f86e380 100644 --- a/mes/module/mes/boot-03.scm +++ b/mes/module/mes/boot-03.scm @@ -172,5 +172,9 @@ (define (,(car module) . arguments) (main (command-line))))) (define-macro (use-modules . rest) #t) + +(define-macro (@ mod-name var-name) var-name) +(define-macro (@@ mod-name var-name) var-name) + ;; end boot-03.scm (primitive-load 0) diff --git a/mes/module/mes/boot-5.scm b/mes/module/mes/boot-5.scm index 1df8549a..478bc447 100644 --- a/mes/module/mes/boot-5.scm +++ b/mes/module/mes/boot-5.scm @@ -172,6 +172,10 @@ (define (,(car module) . arguments) (main (command-line))))) (define-macro (use-modules . rest) #t) + +(define-macro (@ mod-name var-name) var-name) +(define-macro (@@ mod-name var-name) var-name) + ;; end boot-03.scm ;; boot-04.scm