syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add debug output to facet-inert?

This commit is contained in:
Tony Garnock-Jones 2021-06-09 23:07:03 +02:00
parent b12fc5188d
commit de18aa2112
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/actor.rkt
View File

@ -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))))