Clearer example
This commit is contained in:
parent
fe2bc31f4f
commit
b7726dafb8
|
@ -27,8 +27,9 @@
|
||||||
(assert (observe (account ?))))
|
(assert (observe (account ?))))
|
||||||
|
|
||||||
(spawn (lambda (e s)
|
(spawn (lambda (e s)
|
||||||
(and (patch/added? e)
|
(if (and (patch? e) (matcher-non-empty? (patch-added e)))
|
||||||
(quit (list (message (alter-balance-by +100))
|
(quit (list (message (alter-balance-by +100))
|
||||||
(message (alter-balance-by -30))))))
|
(message (alter-balance-by -30))))
|
||||||
|
#f))
|
||||||
(void)
|
(void)
|
||||||
(assert (observe (observe (alter-balance-by ?)))))
|
(assert (observe (observe (alter-balance-by ?)))))
|
||||||
|
|
Loading…
Reference in New Issue