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

Avoid crashing in trace/stderr.rkt by printing the special boot pseudo-event.

This commit is contained in:
Tony Garnock-Jones 2015-12-11 15:17:01 +13:00
parent d9db671896
commit 309ca6f349
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
prospect/trace/stderr.rkt
View File

@ -27,6 +27,7 @@
(define show-exceptions? #f)
(define show-patch-events? #f)
(define show-message-events? #f)
(define show-boot-events? #f)
(define show-events? #f)
(define show-process-states-pre? #f)
(define show-process-states-post? #f)
@ -42,6 +43,7 @@
(set! show-exceptions? (set-member? flags 'x))
(set! show-patch-events? (set-member? flags 'r))
(set! show-message-events? (set-member? flags 'm))
(set! show-boot-events? (set-member? flags 'b))
(set! show-events? (set-member? flags 'e))
(set! show-process-states-pre? (set-member? flags 's))
(set! show-process-states-post? (set-member? flags 't))
@ -124,6 +126,9 @@
[#f
(when (exn-and-not show-events?)
(with-color YELLOW (output "~a was polled for changes.\n" pidstr)))]
['boot
(when (or show-events? show-boot-events?)
(with-color YELLOW (output "~a was booted.\n" pidstr)))]
[(? patch? p)
(when (exn-and-not (or show-events? show-patch-events?))
(with-color YELLOW