From c1681f78043c02e036cb388502154c5bfde4bc51 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 19 Sep 2016 21:19:17 -0400 Subject: [PATCH] Another firewall-demo example case --- racket/syndicate/examples/actor/firewall-demo.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) 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 _)))))