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

Avoid crashing trace when behavior or state are missing from relevant tables

This commit is contained in:
Tony Garnock-Jones 2015-12-11 17:50:55 +13:00
parent 71c5cd3831
commit 80ab8e20cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
prospect/trace/stderr.rkt
View File

@ -198,8 +198,8 @@
(define newpid (mux-next-pid (world-mux old-w)))
(define newpidstr (format-pids (cons newpid (cdr pids)))) ;; replace parent pid
(define interests (mux-interests-of (world-mux new-w) newpid))
(define behavior (hash-ref (world-behaviors new-w) newpid))
(define state (hash-ref (world-states new-w) newpid))
(define behavior (hash-ref (world-behaviors new-w) newpid '#:missing-behavior))
(define state (hash-ref (world-states new-w) newpid '#:missing-state))
(with-color BRIGHT-GREEN
(output "~a ~v spawned from ~a (~a total processes now)\n"
newpidstr