Main submodule in go.rkt
This commit is contained in:
parent
a06b9d188a
commit
d4af09e1b9
|
@ -100,10 +100,12 @@
|
||||||
(for [(peer (in-hash-keys (hash-ref subscriptions (record-label message) '#hash())))]
|
(for [(peer (in-hash-keys (hash-ref subscriptions (record-label message) '#hash())))]
|
||||||
(turn-message! turn peer message))))))
|
(turn-message! turn peer message))))))
|
||||||
|
|
||||||
(actor-system
|
(module+ main
|
||||||
|
(time
|
||||||
|
(actor-system
|
||||||
(lambda (turn)
|
(lambda (turn)
|
||||||
(actor-daemon! (facet-actor (turn-active-facet turn)) #t)
|
(actor-daemon! (facet-actor (turn-active-facet turn)) #t)
|
||||||
(define disarm (facet-prevent-inert-check! (turn-active-facet turn)))
|
(define disarm (facet-prevent-inert-check! (turn-active-facet turn)))
|
||||||
(define ds (turn-ref turn (dataspace)))
|
(define ds (turn-ref turn (dataspace)))
|
||||||
(turn-spawn! turn (box ds 500000 100000))
|
(turn-spawn! turn (box ds 500000 100000))
|
||||||
(turn-spawn! turn (client ds))))
|
(turn-spawn! turn (client ds))))))
|
||||||
|
|
Loading…
Reference in New Issue