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

Fix bug: matcher-match-matcher needed an (observe) wrapper around the object matcher

This commit is contained in:
Tony Garnock-Jones 2015-03-05 16:39:48 +00:00
parent e731282ddd
commit 05916dce18
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
prospect/core.rkt
View File

@ -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))))