diff --git a/racket/syndicate/examples/actor/firewall-demo.rkt b/racket/syndicate/examples/actor/firewall-demo.rkt index c39da64..666b47b 100644 --- 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)))