From d5ce38162b9beb49ac9c2bf1047a0e0546a58141 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 21 Mar 2015 18:59:20 -0400 Subject: [PATCH] Only compute downward patch when needed --- prospect/mux.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/prospect/mux.rkt b/prospect/mux.rkt index b35dade..dde3668 100644 --- a/prospect/mux.rkt +++ b/prospect/mux.rkt @@ -53,10 +53,7 @@ ;; be minimal with respect to existing interests of its label. (define old-routing-table (mux-routing-table m)) (define new-routing-table (apply-patch old-routing-table delta)) - (define delta-aggregate - (compute-aggregate-patch delta label old-routing-table)) - (define delta-aggregate/no-meta - (compute-aggregate-patch delta label old-routing-table #:remove-meta? #t)) + (define delta-aggregate (compute-aggregate-patch delta label old-routing-table)) (define affected-pids (let ((pids (compute-affected-pids old-routing-table delta))) (set-remove (set-add pids label) 'meta))) ;; TODO: removing meta is weird (values (struct-copy mux m [routing-table new-routing-table]) @@ -72,7 +69,8 @@ [else (cons pid (view-patch delta-aggregate (mux-interests-of m pid)))])) (and (not (meta-label? label)) - (drop-patch delta-aggregate/no-meta))))) + (drop-patch + (compute-aggregate-patch delta label old-routing-table #:remove-meta? #t)))))) (define (compute-affected-pids routing-table delta) (define cover (matcher-union (patch-added delta) (patch-removed delta)))