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

Use the tighter intersect? instead of intersect.

This commit is contained in:
Tony Garnock-Jones 2013-10-30 15:05:13 +00:00
parent dd42701179
commit 58c861a8d8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/core.rkt
View File

@ -69,9 +69,7 @@
(define (route-accepts? r m)
(and (= (message-meta-level m) (route-meta-level r))
(equal? (message-feedback? m) (not (route-subscription? r)))
(intersect (message-body m) (route-pattern r)
(lambda (dummy) #t)
(lambda () #f))))
(intersect? (message-body m) (route-pattern r))))
(define (intersect-routes rs1 rs2)
(let loop1 ((rs1 rs1)