Clarify logging of events and actions
This commit is contained in:
parent
22ae65d05e
commit
5057103681
|
@ -282,7 +282,7 @@
|
||||||
(define (deliver-event e pid p)
|
(define (deliver-event e pid p)
|
||||||
(parameterize ((pid-stack (cons pid (pid-stack))))
|
(parameterize ((pid-stack (cons pid (pid-stack))))
|
||||||
(when (and (log-events-and-actions?) e)
|
(when (and (log-events-and-actions?) e)
|
||||||
(log-info "~a: ~v --> ~v ~v"
|
(log-info "EVENT ~a: ~v --> ~v ~v"
|
||||||
(pid-stack)
|
(pid-stack)
|
||||||
e
|
e
|
||||||
(process-behavior p)
|
(process-behavior p)
|
||||||
|
@ -322,7 +322,7 @@
|
||||||
(lambda (p)
|
(lambda (p)
|
||||||
(when (and (log-events-and-actions?)
|
(when (and (log-events-and-actions?)
|
||||||
(not (null? (flatten new-actions))))
|
(not (null? (flatten new-actions))))
|
||||||
(log-info "~a: ~v <-- ~v ~v"
|
(log-info "ACTIONS ~a: ~v <-- ~v ~v"
|
||||||
(cons pid (pid-stack))
|
(cons pid (pid-stack))
|
||||||
new-actions
|
new-actions
|
||||||
(process-behavior p)
|
(process-behavior p)
|
||||||
|
|
Loading…
Reference in New Issue