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

Compute affected peers by the aggregate change, not the incoming action.

This commit is contained in:
Tony Garnock-Jones 2016-02-11 22:28:04 -05:00
parent 01b6bf92ee
commit c3b2df00cd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
prospect-monolithic/mux.rkt
View File

@ -82,7 +82,7 @@
(define new-routing-table (mux-routing-table new-m))
(define echo-cancelled-assertions (echo-cancelled-routing-table new-m))
(define affected-pids
(let ((pids (compute-affected-pids old-routing-table aggregate-assertions))) ;; hmm
(let ((pids (compute-affected-pids old-routing-table aggregate-assertions)))
(tset-remove (tset-add pids label) 'meta))) ;; TODO: removing meta is weird
(values (for/list [(pid (tset->list affected-pids))]
(cons pid (scn (biased-intersection echo-cancelled-assertions

2
prospect/mux.rkt
View File

@ -87,7 +87,7 @@
(define old-routing-table (mux-routing-table old-m))
(define new-routing-table (mux-routing-table new-m))
(define affected-pids
(let ((pids (compute-affected-pids old-routing-table delta)))
(let ((pids (compute-affected-pids old-routing-table delta-aggregate/no-echo)))
(tset-remove (tset-add pids label) 'meta))) ;; TODO: removing meta is weird
(values (for/list [(pid (tset->list affected-pids))]
(cond [(equal? pid label)