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

Clarify logging of events and actions

This commit is contained in:
Tony Garnock-Jones 2014-06-15 20:42:35 -04:00
parent 22ae65d05e
commit 5057103681
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/core.rkt
View File

@ -282,7 +282,7 @@
(define (deliver-event e pid p)
(parameterize ((pid-stack (cons pid (pid-stack))))
(when (and (log-events-and-actions?) e)
(log-info "~a: ~v --> ~v ~v"
(log-info "EVENT ~a: ~v --> ~v ~v"
(pid-stack)
e
(process-behavior p)
@ -322,7 +322,7 @@
(lambda (p)
(when (and (log-events-and-actions?)
(not (null? (flatten new-actions))))
(log-info "~a: ~v <-- ~v ~v"
(log-info "ACTIONS ~a: ~v <-- ~v ~v"
(cons pid (pid-stack))
new-actions
(process-behavior p)