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