From 46ddb4705083ab61a240dd0f723328a6cf92f6ca Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 4 May 2018 16:56:56 +0100 Subject: [PATCH] Cosmetic - extra logging (when uncommented) --- syndicate/dataspace.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index 9f956cb..690978d 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -366,6 +366,7 @@ (define ds-assertions (dataspace-assertions ds)) ;; (log-info "apply-patch! ~a ~v" ac delta) ;; (for [((a c) (in-bag/count ds-assertions))] (log-info " . ~v = ~v" a c)) + ;; (for [((a c) (in-bag/count delta))] (log-info " → ~v = ~v" a c)) (define rt (dataspace-routing-table ds)) (define new-cleanup-changes (for/fold [(cleanup-changes (actor-cleanup-changes ac))] [((a count) (in-bag/count delta))]