From de18aa2112c724b86aa702eabc3f51cda07dc940 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 9 Jun 2021 23:07:03 +0200 Subject: [PATCH] Add debug output to facet-inert? --- syndicate/actor.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index a9e73c6..9cc2833 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -229,6 +229,11 @@ (set-facet-shutdown-actions! f (cons action (facet-shutdown-actions 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)) (hash-empty? (facet-outbound f)) (zero? (facet-inert-check-preventers f))))