Extra engine debug
This commit is contained in:
parent
9451f9886f
commit
cf99f2e2b3
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue