Print process names during exn; avoid double-printing exns
This commit is contained in:
parent
d244866617
commit
52aed3111c
|
@ -223,7 +223,8 @@
|
||||||
|
|
||||||
(define (disable-process pid exn w)
|
(define (disable-process pid exn w)
|
||||||
(when exn
|
(when exn
|
||||||
(log-error "Process ~a died with exception:\n~a"
|
(log-error "Process ~v ~a died with exception:\n~a"
|
||||||
|
(process-info-name (hash-ref (dataspace-process-table w) pid missing-process-info))
|
||||||
(cons pid (trace-pid-stack))
|
(cons pid (trace-pid-stack))
|
||||||
(exn->string exn)))
|
(exn->string exn)))
|
||||||
(struct-copy dataspace w
|
(struct-copy dataspace w
|
||||||
|
|
|
@ -40,10 +40,6 @@
|
||||||
|
|
||||||
;; Event (Option PID) Process (Option Exception) (Option Transition) -> Void
|
;; Event (Option PID) Process (Option Exception) (Option Transition) -> Void
|
||||||
(define (trace-process-step-result e pid beh st exn t)
|
(define (trace-process-step-result e pid beh st exn t)
|
||||||
(when exn
|
|
||||||
(log-error "Process ~a died with exception:\n~a"
|
|
||||||
(cons-pid pid)
|
|
||||||
(exn->string exn)))
|
|
||||||
(record-trace-event 'process-step-result (list (cons-pid pid) e beh st exn t)))
|
(record-trace-event 'process-step-result (list (cons-pid pid) e beh st exn t)))
|
||||||
|
|
||||||
;; (Option PID) Action Dataspace -> Void
|
;; (Option PID) Action Dataspace -> Void
|
||||||
|
|
Loading…
Reference in New Issue