syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

No need to try to let a quitting process know an updated gestalt

This commit is contained in:
Tony Garnock-Jones 2014-06-06 18:05:17 -04:00
parent 22e109413f
commit fb6d22ad94
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/core.rkt
View File

@ -286,7 +286,7 @@
(log-info "Process ~a terminating; ~a processes remain"
(cons pid (pid-stack))
(hash-count (world-process-table w)))
(apply-and-issue-routing-update w (process-gestalt p) (gestalt-empty) pid))
(apply-and-issue-routing-update w (process-gestalt p) (gestalt-empty) #f))
(transition w '()))]
[(routing-update gestalt)
(define pt (world-process-table w))
@ -313,7 +313,8 @@
[(pending-routing-update g affected-subgestalt known-target)
(define affected-pids (gestalt-match affected-subgestalt g))
(define pt (world-process-table w))
(for/fold ([w w]) [(pid (in-set (set-add affected-pids known-target)))]
(for/fold ([w w])
[(pid (in-set (if known-target (set-add affected-pids known-target) affected-pids)))]
(match (hash-ref pt pid (lambda () #f))
[#f w]
[p (define g1 (gestalt-filter g (process-gestalt p)))