actor-system/dataspace

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

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