Log termination of processes

2013-10-28 10:17:40 +00:00 · 2013-10-28 10:17:40 +00:00 · 6d025ef69d
parent c9e9465f85
commit 6d025ef69d
1 changed files with 1 additions and 0 deletions
--- a/core.rkt
+++ b/core.rkt
@ -168,6 +168,7 @@
 				     (hash-set (world-process-table w) new-pid new-p)])))
       (issue-routing-update w))]
    [(quit)
+     (when (hash-has-key? (world-process-table w) pid) (log-info "Process ~a terminating" pid))
     (let* ((w (struct-copy world w [process-table (hash-remove (world-process-table w) pid)])))
       (issue-routing-update w))]
    [(routing-update routes)