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
6c64b5e1ba
commit
b86d19c1a5
|
@ -176,6 +176,10 @@
|
||||||
(define (,(car module) . arguments) (main (command-line)))))
|
(define (,(car module) . arguments) (main (command-line)))))
|
||||||
|
|
||||||
(define-macro (use-modules . rest) #t)
|
(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
|
;; end boot-03.scm
|
||||||
|
|
||||||
;; boot-04.scm
|
;; boot-04.scm
|
||||||
|
|
|
@ -172,5 +172,9 @@
|
||||||
(define (,(car module) . arguments) (main (command-line)))))
|
(define (,(car module) . arguments) (main (command-line)))))
|
||||||
|
|
||||||
(define-macro (use-modules . rest) #t)
|
(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
|
;; end boot-03.scm
|
||||||
(primitive-load 0)
|
(primitive-load 0)
|
||||||
|
|
|
@ -172,6 +172,10 @@
|
||||||
(define (,(car module) . arguments) (main (command-line)))))
|
(define (,(car module) . arguments) (main (command-line)))))
|
||||||
|
|
||||||
(define-macro (use-modules . rest) #t)
|
(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
|
;; end boot-03.scm
|
||||||
|
|
||||||
;; boot-04.scm
|
;; boot-04.scm
|
||||||
|
|
Loading…
Reference in New Issue