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:
parent
8f0832c0e7
commit
063c244665
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue