Convey the number of remaining processes after a termination
This commit is contained in:
parent
bad652d0c5
commit
aea07d16cc
|
@ -246,7 +246,9 @@
|
||||||
(define p (hash-ref pt pid (lambda () #f)))
|
(define p (hash-ref pt pid (lambda () #f)))
|
||||||
(if p
|
(if p
|
||||||
(let* ((w (struct-copy world w [process-table (hash-remove pt pid)])))
|
(let* ((w (struct-copy world w [process-table (hash-remove pt pid)])))
|
||||||
(log-info "Process ~a terminating" pid)
|
(log-info "Process ~a terminating; ~a processes remain"
|
||||||
|
pid
|
||||||
|
(hash-count (world-process-table w)))
|
||||||
(apply-and-issue-routing-update w pid (process-gestalt p) (gestalt-empty)))
|
(apply-and-issue-routing-update w pid (process-gestalt p) (gestalt-empty)))
|
||||||
(transition w '()))]
|
(transition w '()))]
|
||||||
[(routing-update gestalt)
|
[(routing-update gestalt)
|
||||||
|
|
Loading…
Reference in New Issue