diff --git a/racket/syndicate/examples/actor/firewall-demo.rkt b/racket/syndicate/examples/actor/firewall-demo.rkt index 2ac943f..c39da64 100644 --- a/racket/syndicate/examples/actor/firewall-demo.rkt +++ b/racket/syndicate/examples/actor/firewall-demo.rkt @@ -40,3 +40,11 @@ (firewall [(allow (a 'ok-kid))] (assert (a 'forbidden-parent)) (on-start (actor (assert (a _))))) + +(firewall [(allow (a 'ok-kid2)) + (allow (a 'ok-parent2))] + (assert (a 'ok-parent2)) + (assert (a 'forbidden-parent2)) + (on-start (firewall [(allow ?) + (forbid (a 'ok-parent2))] + (assert (a _)))))