More dataspace logging
This commit is contained in:
parent
6673c2b68c
commit
c97069375a
|
@ -70,8 +70,12 @@
|
||||||
(when (eq? (bag-change! assertions value -1) 'present->absent)
|
(when (eq? (bag-change! assertions value -1) 'present->absent)
|
||||||
(remove-assertion! this-turn skeleton value)
|
(remove-assertion! this-turn skeleton value)
|
||||||
(match maybe-observe
|
(match maybe-observe
|
||||||
[(? eof-object?) (void)]
|
[(? eof-object?)
|
||||||
[(Observe pat ref) (remove-interest! this-turn skeleton pat ref)]))]))
|
(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)
|
#:message (lambda (message)
|
||||||
(log-syndicate/dataspace-debug "~v !~a" ds-e (pretty-assertion 4 message))
|
(log-syndicate/dataspace-debug "~v !~a" ds-e (pretty-assertion 4 message))
|
||||||
(send-assertion! this-turn skeleton message))))
|
(send-assertion! this-turn skeleton message))))
|
||||||
|
|
Loading…
Reference in New Issue