diff --git a/minimart/core.rkt b/minimart/core.rkt index 4d9a826..846a7af 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -181,6 +181,7 @@ (w (struct-copy world w [next-pid (+ new-pid 1)])) (w (struct-copy world w [process-table (hash-set (world-process-table w) new-pid new-p)]))) + (log-info "Spawned process ~a ~v ~v" new-pid (process-behavior new-p) (process-state new-p)) (issue-routing-update w))] [(quit) (when (hash-has-key? (world-process-table w) pid) (log-info "Process ~a terminating" pid)) diff --git a/minimart/ground.rkt b/minimart/ground.rkt index 73e02bd..fadb74f 100644 --- a/minimart/ground.rkt +++ b/minimart/ground.rkt @@ -34,7 +34,6 @@ (begin (log-info "run-ground: Terminating because inert") (void)) (let ((e (apply sync event-list))) - (log-info "Woke: ~v" e) (match (deliver-event e -2 p) [#f ;; inert (await-interrupt #t p active-events)]