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

Use match-event in box-and-client example

This commit is contained in:
Tony Garnock-Jones 2016-03-16 13:13:04 -04:00
parent 8b1d04ab05
commit 3c2995841e
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
prospect/examples/box-and-client.rkt
View File

@ -5,22 +5,20 @@
(struct box-state (value) #:transparent)
(spawn (lambda (e current-value)
(match e
(match-event e
[(message (set-box new-value))
(log-info "box: taking on new-value ~v" new-value)
(transition new-value (patch-seq (retract (box-state current-value))
(assert (box-state new-value))))]
[_ #f]))
(assert (box-state new-value))))]))
0
(patch-seq (sub (set-box ?))
(assert (box-state 0))))
(spawn (lambda (e s)
(match e
(match-event e
[(patch added removed)
(transition s (for-trie/list ([(box-state $v) added])
(log-info "client: learned that box's value is now ~v" v)
(message (set-box (+ v 1)))))]
[_ #f]))
(message (set-box (+ v 1)))))]))
(void)
(patch-seq (sub (box-state ?))))