andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Timothy Sample 2022-04-11 20:41:14 -06:00
parent 8f0832c0e7
commit 063c244665
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mes/module/mes/boot-0.scm
View File

@ -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

4
mes/module/mes/boot-03.scm
View File

@ -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)

4
mes/module/mes/boot-5.scm
View File

@ -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