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))))))