diff --git a/prospect-monolithic/mux.rkt b/prospect-monolithic/mux.rkt index a2ec45b..5021888 100644 --- a/prospect-monolithic/mux.rkt +++ b/prospect-monolithic/mux.rkt @@ -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 diff --git a/prospect/mux.rkt b/prospect/mux.rkt index 4c508ea..e4ab608 100644 --- a/prospect/mux.rkt +++ b/prospect/mux.rkt @@ -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)