|
#lang syndicate
|
|
|
|
;; Expected Output:
|
|
#|
|
|
received message bad
|
|
realized good
|
|
|#
|
|
|
|
(message-struct ping (v))
|
|
|
|
(spawn
|
|
(on (realize (ping $v))
|
|
(printf "realized ~a\n" v))
|
|
(on (message (ping $v))
|
|
(printf "received message ~a\n" v)
|
|
(realize! (ping 'good))))
|
|
|
|
(spawn*
|
|
(send! (ping 'bad)))
|