From 063c2446657dc0c99a4eab9956507c70bd1c8dfd Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Mon, 11 Apr 2022 20:41:14 -0600
Subject: [PATCH] mes: boot-03: Define '@' and '@@'.

* mes/module/mes/boot-03.scm (@, @@): New macros.
* mes/module/mes/boot-0.scm (@, @@): New macros.
* mes/module/mes/boot-5.scm (@, @@): New macros.
---
 mes/module/mes/boot-0.scm  | 4 ++++
 mes/module/mes/boot-03.scm | 4 ++++
 mes/module/mes/boot-5.scm  | 4 ++++
 3 files changed, 12 insertions(+)

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