Flush debug outputs
This commit is contained in:
parent
4f63b36c9d
commit
3ec9abad45
4
os2.rkt
4
os2.rkt
|
@ -445,6 +445,7 @@
|
||||||
[processes (hash-set (vm-processes state) new-pid initial-process)]
|
[processes (hash-set (vm-processes state) new-pid initial-process)]
|
||||||
[next-process-id (+ new-pid 1)]))
|
[next-process-id (+ new-pid 1)]))
|
||||||
(printf "~a PID ~v (~a) started~n" (vm-name state) new-pid new-name)
|
(printf "~a PID ~v (~a) started~n" (vm-name state) new-pid new-name)
|
||||||
|
(flush-output (current-output-port))
|
||||||
(run-trapk spawned-state spawning-pid k new-pid))
|
(run-trapk spawned-state spawning-pid k new-pid))
|
||||||
|
|
||||||
(define (print-kill vm-name pid-to-kill process-name reason)
|
(define (print-kill vm-name pid-to-kill process-name reason)
|
||||||
|
@ -464,7 +465,8 @@
|
||||||
vm-name
|
vm-name
|
||||||
pid-to-kill
|
pid-to-kill
|
||||||
process-name
|
process-name
|
||||||
reason)]))
|
reason)])
|
||||||
|
(flush-output (current-output-port)))
|
||||||
|
|
||||||
(define (do-kill pid-to-kill reason state)
|
(define (do-kill pid-to-kill reason state)
|
||||||
(cond
|
(cond
|
||||||
|
|
Loading…
Reference in New Issue