From 8f28ae0e9c00baf26d2a1ad61270d8dfee20a966 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 19 Sep 2016 21:26:38 -0400
Subject: [PATCH] Minor refactoring

---
 racket/syndicate/firewall.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket/syndicate/firewall.rkt b/racket/syndicate/firewall.rkt
index c5e3bec..a12d9fd 100644
--- a/racket/syndicate/firewall.rkt
+++ b/racket/syndicate/firewall.rkt
@@ -68,6 +68,9 @@
 (define (firewall-actions acs limit)
   (filter-map (lambda (ac) (firewall-action ac limit)) (clean-actions acs)))
 
+(define (limit-trie limit trie)
+  (trie-intersect trie limit #:combiner (lambda (v1 v2) (trie-success v1))))
+
 (define (firewall-action ac limit)
   (match ac
     [#f #f]
@@ -75,8 +78,7 @@
      (and (trie-lookup limit c #f) ;; todo: handle wildcard as a value
           (message c))]
     [(patch a d)
-     (patch (trie-intersect a limit #:combiner (lambda (v1 v2) (trie-success v1)))
-            (trie-intersect d limit #:combiner (lambda (v1 v2) (trie-success v1))))]
+     (patch (limit-trie limit a) (limit-trie limit d))]
     [(? spawn? s)
      (spawn-firewall limit s)]
     [_