From db132b82309c1685f1215dc232d0993d7b13676c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 13 May 2014 23:13:25 -0400 Subject: [PATCH] Mark newly-spawned process as initially runnable --- minimart/core.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/minimart/core.rkt b/minimart/core.rkt index a72d918..69d9bbe 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -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)