note

2017-11-15 14:37:03 -05:00 · 2017-11-15 14:37:03 -05:00 · e402725d7f
parent f1c51661c7
commit e402725d7f
1 changed files with 3 additions and 0 deletions
--- a/racket/syndicate/core-lang.rkt
+++ b/racket/syndicate/core-lang.rkt
@ -44,6 +44,9 @@
    (raise-syntax-error #f "allowed only around a module body" stx))
  (syntax-case stx ()
    [(_ 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 ...)))]))

 (define-syntax (syndicate-module stx)