From c97069375a0cfc2746497b0830e0e13aaba1cbfe Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 9 Apr 2024 11:35:48 +0200 Subject: [PATCH] More dataspace logging --- syndicate/dataspace.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index b278757..d40115b 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -70,8 +70,12 @@ (when (eq? (bag-change! assertions value -1) 'present->absent) (remove-assertion! this-turn skeleton value) (match maybe-observe - [(? eof-object?) (void)] - [(Observe pat ref) (remove-interest! this-turn skeleton pat ref)]))])) + [(? eof-object?) + (log-syndicate/dataspace-debug "Not an observer:~a" (pretty-assertion 4 value)) + (void)] + [(Observe pat ref) + (remove-interest! this-turn skeleton pat ref) + (log-syndicate/dataspace-debug "Updated index:~a" (pretty-assertion 4 skeleton))]))])) #:message (lambda (message) (log-syndicate/dataspace-debug "~v !~a" ds-e (pretty-assertion 4 message)) (send-assertion! this-turn skeleton message))))