syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor refactoring

This commit is contained in:
Tony Garnock-Jones 2016-09-19 21:26:38 -04:00
parent 694de50bc0
commit 8f28ae0e9c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/firewall.rkt
View File

@ -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)]
[_