use comprehension in box-and-client
This commit is contained in:
parent
fa3418f641
commit
006946a3a0
|
@ -18,7 +18,7 @@
|
||||||
(spawn (lambda (e s)
|
(spawn (lambda (e s)
|
||||||
(match e
|
(match e
|
||||||
[(patch added removed)
|
[(patch added removed)
|
||||||
(transition s (for/list [(v (project-assertions added (box-state (?!))))]
|
(transition s (for-trie/list ([(box-state $v) added])
|
||||||
(log-info "client: learned that box's value is now ~v" v)
|
(log-info "client: learned that box's value is now ~v" v)
|
||||||
(message (set-box (+ v 1)))))]
|
(message (set-box (+ v 1)))))]
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
|
|
Loading…
Reference in New Issue