Use the tighter intersect? instead of intersect.
This commit is contained in:
parent
dd42701179
commit
58c861a8d8
|
@ -69,9 +69,7 @@
|
||||||
(define (route-accepts? r m)
|
(define (route-accepts? r m)
|
||||||
(and (= (message-meta-level m) (route-meta-level r))
|
(and (= (message-meta-level m) (route-meta-level r))
|
||||||
(equal? (message-feedback? m) (not (route-subscription? r)))
|
(equal? (message-feedback? m) (not (route-subscription? r)))
|
||||||
(intersect (message-body m) (route-pattern r)
|
(intersect? (message-body m) (route-pattern r))))
|
||||||
(lambda (dummy) #t)
|
|
||||||
(lambda () #f))))
|
|
||||||
|
|
||||||
(define (intersect-routes rs1 rs2)
|
(define (intersect-routes rs1 rs2)
|
||||||
(let loop1 ((rs1 rs1)
|
(let loop1 ((rs1 rs1)
|
||||||
|
|
Loading…
Reference in New Issue