actor-system/dataspace
This commit is contained in:
parent
490f2d82db
commit
7ce9166a5d
|
@ -4,7 +4,8 @@
|
||||||
(all-from-out "schemas/gen/dataspace-patterns.rkt")
|
(all-from-out "schemas/gen/dataspace-patterns.rkt")
|
||||||
(all-from-out "schemas/gen/dataspace-patterns.meta.rkt")
|
(all-from-out "schemas/gen/dataspace-patterns.meta.rkt")
|
||||||
|
|
||||||
dataspace)
|
dataspace
|
||||||
|
actor-system/dataspace)
|
||||||
|
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
|
|
||||||
|
@ -50,3 +51,12 @@
|
||||||
(log-syndicate/dataspace-debug "~v ! ~v" ds-e message)
|
(log-syndicate/dataspace-debug "~v ! ~v" ds-e message)
|
||||||
(send-assertion! this-turn skeleton message))))
|
(send-assertion! this-turn skeleton message))))
|
||||||
ds-e)
|
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 ...)]))
|
||||||
|
|
|
@ -44,8 +44,6 @@
|
||||||
|
|
||||||
(module+ main
|
(module+ main
|
||||||
(time
|
(time
|
||||||
(actor-system
|
(actor-system/dataspace (ds)
|
||||||
(define disarm (facet-prevent-inert-check! this-facet))
|
(box this-turn ds 500000 100000)
|
||||||
(define ds (ref (dataspace)))
|
(client this-turn ds))))
|
||||||
(box this-turn ds 500000 100000)
|
|
||||||
(client this-turn ds))))
|
|
||||||
|
|
Loading…
Reference in New Issue