syndicate-2017/racket/syndicate/examples/actor/box-and-client.rkt

18 lines
611 B
Racket

#lang syndicate
;; Simple mutable box and count-to-infinity box client.
(require syndicate/actor)
(struct set-box (new-value) #:transparent)
(struct box-state (value) #:transparent)
(actor (forever #:collect [(current-value 0)]
(assert (box-state current-value))
(on (message (set-box $new-value))
(log-info "box: taking on new-value ~v" new-value)
new-value)))
(actor (forever (on (asserted (box-state $v))
(log-info "client: learned that box's value is now ~v" v)
(send! (set-box (+ v 1))))))