Extra engine debug

This commit is contained in:
Tony Garnock-Jones 2021-06-15 12:46:17 +02:00
parent 9451f9886f
commit cf99f2e2b3
1 changed files with 4 additions and 0 deletions

View File

@ -50,8 +50,12 @@
;; No non-daemon users, so keep running until there's no more work
(match (thread-try-receive)
[#f ;; No work, no non-daemons, we're done.
(log-syndicate/engine-debug
"Invoking termination handler ~v" termination-handler)
(termination-handler loop)]
[thunk
(log-syndicate/engine-debug
"Zero inhabitant count but pending work")
(thunk)
(loop termination-handler)])))
(log-syndicate/engine-debug "~a stopping" e)