Add debug output to facet-inert?
This commit is contained in:
parent
b12fc5188d
commit
de18aa2112
|
@ -229,6 +229,11 @@
|
||||||
(set-facet-shutdown-actions! f (cons action (facet-shutdown-actions f))))
|
(set-facet-shutdown-actions! f (cons action (facet-shutdown-actions f))))
|
||||||
|
|
||||||
(define (facet-inert? f)
|
(define (facet-inert? f)
|
||||||
|
(log-syndicate/actor-debug " facet-inert? ~a: ~a kids, ~a outbound, ~a preventers"
|
||||||
|
f
|
||||||
|
(hash-count (facet-children f))
|
||||||
|
(hash-count (facet-outbound f))
|
||||||
|
(facet-inert-check-preventers f))
|
||||||
(and (hash-empty? (facet-children f))
|
(and (hash-empty? (facet-children f))
|
||||||
(hash-empty? (facet-outbound f))
|
(hash-empty? (facet-outbound f))
|
||||||
(zero? (facet-inert-check-preventers f))))
|
(zero? (facet-inert-check-preventers f))))
|
||||||
|
|
Loading…
Reference in New Issue