syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Second listener, this one using during

This commit is contained in:
Tony Garnock-Jones 2016-05-17 00:15:52 -04:00
parent d9b11566f5
commit 3db6177ce9
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate/examples/actor/example-partial-retraction.rkt
View File

@ -18,12 +18,22 @@
(log-info "del binding: ~v -> ~v" key value)))
(log-info "key ~v retracted" key))))
(actor (forever
(assert (ready 'other-listener))
(during (entry $key _)
#:init [(log-info "(other-listener) key ~v asserted" key)]
#:done [(log-info "(other-listener) key ~v retracted" key)]
(during (entry key $value)
#:init [(log-info "(other-listener) ~v ---> ~v" key value)]
#:done [(log-info "(other-listener) ~v -/-> ~v" key value)]))))
(define (pause)
(log-info "pause")
(until (asserted (ready 'pause))
(assert (ready 'pause))))
(actor (until (asserted (ready 'listener)))
(until (asserted (ready 'other-listener)))
(assert! (entry 'a 1))
(assert! (entry 'a 2))
(assert! (entry 'b 3))