Fix bug: matcher-match-matcher needed an (observe) wrapper around the object matcher
This commit is contained in:
parent
e731282ddd
commit
05916dce18
|
@ -350,7 +350,8 @@
|
||||||
|
|
||||||
(define (compute-affected-pids routing-table delta)
|
(define (compute-affected-pids routing-table delta)
|
||||||
(define cover (matcher-union (patch-added delta) (patch-removed delta)))
|
(define cover (matcher-union (patch-added delta) (patch-removed delta)))
|
||||||
(matcher-match-matcher cover routing-table
|
(matcher-match-matcher (pattern->matcher #t (observe (embedded-matcher cover)))
|
||||||
|
routing-table
|
||||||
#:seed (set)
|
#:seed (set)
|
||||||
#:combiner (lambda (v1 v2 acc) (set-union v2 acc))))
|
#:combiner (lambda (v1 v2 acc) (set-union v2 acc))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue