From e402725d7faabb1b6d12e7dcc843de9dd436f05f Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Wed, 15 Nov 2017 14:37:03 -0500 Subject: [PATCH] note --- racket/syndicate/core-lang.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/racket/syndicate/core-lang.rkt b/racket/syndicate/core-lang.rkt index cc33089..cc06242 100644 --- 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)