From 7ce9166a5d14b85df0b5d657c31a33ff8dbb9cb7 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 3 Jun 2021 22:40:51 +0200 Subject: [PATCH] actor-system/dataspace --- syndicate/dataspace.rkt | 12 +++++++++++- syndicate/go.rkt | 8 +++----- 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index 28d4290..f9f5375 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -4,7 +4,8 @@ (all-from-out "schemas/gen/dataspace-patterns.rkt") (all-from-out "schemas/gen/dataspace-patterns.meta.rkt") - dataspace) + dataspace + actor-system/dataspace) (require racket/match) @@ -50,3 +51,12 @@ (log-syndicate/dataspace-debug "~v ! ~v" ds-e message) (send-assertion! this-turn skeleton message)))) ds-e) + +(define-syntax actor-system/dataspace + (syntax-rules () + [(_ (ds) expr ...) + (actor-system + #:name 'dataspace + (facet-prevent-inert-check! this-facet) + (define ds (ref (dataspace))) + expr ...)])) diff --git a/syndicate/go.rkt b/syndicate/go.rkt index 0e4d06a..aefc791 100644 --- a/syndicate/go.rkt +++ b/syndicate/go.rkt @@ -44,8 +44,6 @@ (module+ main (time - (actor-system - (define disarm (facet-prevent-inert-check! this-facet)) - (define ds (ref (dataspace))) - (box this-turn ds 500000 100000) - (client this-turn ds)))) + (actor-system/dataspace (ds) + (box this-turn ds 500000 100000) + (client this-turn ds))))