Avoid use of for-trie in example for PLACES paper
This commit is contained in:
parent
79ea380afc
commit
73119c323f
|
@ -12,8 +12,7 @@
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
|
|
||||||
(define (observer e _)
|
(define (observer e _)
|
||||||
(when (patch? e)
|
(when (patch? e) (for [(balance (project-assertions (patch-added e) (account (?!))))]
|
||||||
(for-trie ([(account $balance) (patch-added e)])
|
|
||||||
(printf "Balance changed to ~a\n" balance)))
|
(printf "Balance changed to ~a\n" balance)))
|
||||||
#f)
|
#f)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue