syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' into imperative

This commit is contained in:
Tony Garnock-Jones 2018-06-01 09:13:04 +01:00
parent 939b0620ed cb351eee09
commit 75b3488c83
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/syndicate/core-lang.rkt
View File

@ -47,7 +47,10 @@
;; 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)
(module+ main (current-ground-dataspace run-ground))
forms ...)))]))
(define-syntax (syndicate-module stx)
(syntax-parse stx
@ -91,8 +94,6 @@
(when (not activated?)
(set! activated? #t)
boot-actions)))
(module+ main
(current-ground-dataspace run-ground))
(module+ main
(require (submod ".." syndicate-main))
((current-ground-dataspace) (activate!))))])