17 lines
508 B
Racket
17 lines
508 B
Racket
|
#lang syndicate
|
||
|
|
;; Demonstrates that fields may not be passed between sibling facets.
|
||
|
|
|
||
|
|
(require syndicate/actor)
|
||
|
|
|
||
|
|
(actor (react
|
||
|
|
(on (message `(read-from ,$this-field))
|
||
|
|
(log-info "Trying to read from ~a" this-field)
|
||
|
|
(log-info "Read: ~a" (this-field))
|
||
|
|
(send! `(read-successfully ,this-field))))
|
||
|
|
(react
|
||
|
|
(field [a 123])
|
||
|
|
(on-start
|
||
|
|
(send! `(read-from ,a))
|
||
|
|
(until (message `(read-successfully ,a)))
|
||
|
|
(log-info "Done."))))
|