simple-cross-layer.rkt
This commit is contained in:
parent
6c4ae38499
commit
e41290c509
|
@ -0,0 +1,11 @@
|
||||||
|
#lang syndicate
|
||||||
|
|
||||||
|
(assertion-struct greeting (text))
|
||||||
|
|
||||||
|
(spawn (assert (greeting "Hello from an outer dataspace actor!")))
|
||||||
|
(spawn (on (asserted (greeting $t))
|
||||||
|
(printf "Outer dataspace: ~a\n" t)))
|
||||||
|
|
||||||
|
(dataspace (spawn (assert (outbound (greeting "Hello from an inner dataspace actor!"))))
|
||||||
|
(spawn (on (asserted (inbound (greeting $t)))
|
||||||
|
(printf "Inner dataspace: ~a\n" t))))
|
Loading…
Reference in New Issue