Avoid potential (?) for wrong early termination of engine
This commit is contained in:
parent
26ca865b87
commit
b2c591777e
|
@ -203,11 +203,12 @@
|
||||||
(exn->string reason)))
|
(exn->string reason)))
|
||||||
(for [(h (in-list (reverse (actor-exit-hooks ac))))] (h))
|
(for [(h (in-list (reverse (actor-exit-hooks ac))))] (h))
|
||||||
(queue-task! (actor-engine ac)
|
(queue-task! (actor-engine ac)
|
||||||
(lambda () (turn! (actor-root ac)
|
(lambda ()
|
||||||
(lambda () (facet-terminate! (actor-root ac) (eq? reason #t)))
|
(turn! (actor-root ac)
|
||||||
#t)))
|
(lambda () (facet-terminate! (actor-root ac) (eq? reason #t)))
|
||||||
(when (not (actor-daemon? ac))
|
#t)
|
||||||
(adjust-inhabitant-count! (actor-engine ac) -1))))
|
(when (not (actor-daemon? ac))
|
||||||
|
(adjust-inhabitant-count! (actor-engine ac) -1))))))
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue