Illustrate bounds on observation too

2016-09-19 21:21:43 -04:00 · 2016-09-19 21:21:43 -04:00 · 694de50bc0
parent c1681f7804
commit 694de50bc0
1 changed files with 9 additions and 0 deletions
--- a/racket/syndicate/examples/actor/firewall-demo.rkt
+++ b/racket/syndicate/examples/actor/firewall-demo.rkt
@ -48,3 +48,12 @@
          (on-start (firewall [(allow ?)
                               (forbid (a 'ok-parent2))]
                              (assert (a _)))))
+
+(firewall [(allow (observe (m 'ok1)))
+           (allow (observe (a 'ok1)))]
+          (on (asserted $x)
+              (printf "Observed assertion ~v\n" x))
+          (on (retracted $x)
+              (printf "Observed retraction ~v\n" x))
+          (on (message $x)
+              (printf "Observed message ~v\n" x)))