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

Avoid use of sub; wait for server to come ready before sending messages

This commit is contained in:
Tony Garnock-Jones 2016-01-16 18:11:35 -05:00
parent f1c1646163
commit fe2bc31f4f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
prospect/examples/bank-account.rkt
View File

@ -13,7 +13,7 @@
(assert (account new-balance))))] (assert (account new-balance))))]
[_ #f])) [_ #f]))
0 0
(patch-seq (sub (alter-balance-by ?)) (patch-seq (assert (observe (alter-balance-by ?)))
(assert (account 0)))) (assert (account 0))))
(spawn (lambda (e s) (spawn (lambda (e s)
@ -24,7 +24,11 @@
#f] #f]
[_ #f])) [_ #f]))
(void) (void)
(sub (account ?))) (assert (observe (account ?))))
(message (alter-balance-by +100)) (spawn (lambda (e s)
(message (alter-balance-by -30)) (and (patch/added? e)
(quit (list (message (alter-balance-by +100))
(message (alter-balance-by -30))))))
(void)
(assert (observe (observe (alter-balance-by ?)))))