From 05916dce184c731c67f5625e8eb399085e05d38a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 5 Mar 2015 16:39:48 +0000 Subject: [PATCH] Fix bug: matcher-match-matcher needed an (observe) wrapper around the object matcher --- prospect/core.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/prospect/core.rkt b/prospect/core.rkt index ee2c497..1c8e052 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -350,7 +350,8 @@ (define (compute-affected-pids routing-table 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) #:combiner (lambda (v1 v2 acc) (set-union v2 acc))))