Cosmetic - extra logging (when uncommented)
This commit is contained in:
parent
d3f27488ed
commit
46ddb47050
|
@ -366,6 +366,7 @@
|
||||||
(define ds-assertions (dataspace-assertions ds))
|
(define ds-assertions (dataspace-assertions ds))
|
||||||
;; (log-info "apply-patch! ~a ~v" ac delta)
|
;; (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 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 rt (dataspace-routing-table ds))
|
||||||
(define new-cleanup-changes
|
(define new-cleanup-changes
|
||||||
(for/fold [(cleanup-changes (actor-cleanup-changes ac))] [((a count) (in-bag/count delta))]
|
(for/fold [(cleanup-changes (actor-cleanup-changes ac))] [((a count) (in-bag/count delta))]
|
||||||
|
|
Loading…
Reference in New Issue