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

Entersenate.

This commit is contained in:
Tony Garnock-Jones 2016-03-01 16:48:28 -05:00
parent c0b84e1915
commit a71e138e79
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,7 +15,7 @@
(printf "Balance changed to ~a\n" balance))))
(define (updater e _)
(when (and (patch? e) (trie-non-empty? (patch-added e)))
(when (patch/added? e)
(quit (list (message (deposit +100))
(message (deposit -30))))))