From 874ba60f06a12c4cbe880b305c7cdd69c029b1c6 Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Mon, 22 Feb 2016 23:35:06 -0500 Subject: [PATCH] use trie comprehension in bank account example --- prospect/examples/bank-account.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prospect/examples/bank-account.rkt b/prospect/examples/bank-account.rkt index af94ac6..c16e4da 100644 --- a/prospect/examples/bank-account.rkt +++ b/prospect/examples/bank-account.rkt @@ -13,7 +13,7 @@ (define (observer 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))) #f)