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

Mark newly-spawned process as initially runnable

This commit is contained in:
Tony Garnock-Jones 2014-05-13 23:13:25 -04:00
parent ebc798c0aa
commit db132b8230
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
minimart/core.rkt
View File

@ -211,7 +211,8 @@
(new-p (struct-copy process new-p [gestalt new-gestalt]))
(w (struct-copy world w
[next-pid (+ new-pid 1)]
[process-table (hash-set (world-process-table w) new-pid new-p)])))
[process-table (hash-set (world-process-table w) new-pid new-p)]))
(w (mark-pid-runnable w new-pid)))
(log-info "Spawned process ~a ~v ~v" new-pid (process-behavior new-p) (process-state new-p))
(apply-and-issue-routing-update w new-pid (gestalt-empty) new-gestalt))]
[(quit)