From d4af09e1b9a8453cf9d5a9d6528faed79488cc15 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 31 May 2021 13:07:37 +0200 Subject: [PATCH] Main submodule in go.rkt --- syndicate/go.rkt | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/syndicate/go.rkt b/syndicate/go.rkt index 0d7e5a0..35f04a4 100644 --- a/syndicate/go.rkt +++ b/syndicate/go.rkt @@ -100,10 +100,12 @@ (for [(peer (in-hash-keys (hash-ref subscriptions (record-label message) '#hash())))] (turn-message! turn peer message)))))) -(actor-system - (lambda (turn) - (actor-daemon! (facet-actor (turn-active-facet turn)) #t) - (define disarm (facet-prevent-inert-check! (turn-active-facet turn))) - (define ds (turn-ref turn (dataspace))) - (turn-spawn! turn (box ds 500000 100000)) - (turn-spawn! turn (client ds)))) +(module+ main + (time + (actor-system + (lambda (turn) + (actor-daemon! (facet-actor (turn-active-facet turn)) #t) + (define disarm (facet-prevent-inert-check! (turn-active-facet turn))) + (define ds (turn-ref turn (dataspace))) + (turn-spawn! turn (box ds 500000 100000)) + (turn-spawn! turn (client ds))))))