note
This commit is contained in:
parent
f1c51661c7
commit
e402725d7f
|
@ -44,6 +44,9 @@
|
||||||
(raise-syntax-error #f "allowed only around a module body" stx))
|
(raise-syntax-error #f "allowed only around a module body" stx))
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
[(_ forms ...)
|
[(_ forms ...)
|
||||||
|
;; the inclusion of (module+ syndicate-main) is because it seems that the appearance order
|
||||||
|
;; of module+ forms determines the mutual visibility. So syndicate-main is ensured to be the
|
||||||
|
;; first module+ and consequently the main submodule can require it.
|
||||||
#'(#%module-begin (syndicate-module () ((module+ syndicate-main) forms ...)))]))
|
#'(#%module-begin (syndicate-module () ((module+ syndicate-main) forms ...)))]))
|
||||||
|
|
||||||
(define-syntax (syndicate-module stx)
|
(define-syntax (syndicate-module stx)
|
||||||
|
|
Loading…
Reference in New Issue