From 4f21e9ab465bde8a9bf790b142651930993ce016 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 5 Aug 2017 19:38:35 -0400 Subject: [PATCH] Elide spurious detail in patch actions and events --- racket/syndicate/trace/stderr.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/trace/stderr.rkt b/racket/syndicate/trace/stderr.rkt index 101269f..03ab2ff 100644 --- a/racket/syndicate/trace/stderr.rkt +++ b/racket/syndicate/trace/stderr.rkt @@ -156,7 +156,7 @@ (when show-actions? (output "~a performs a patch:\n~a\n" (format-pids process-names source) - (patch->pretty-string p)))] + (patch->pretty-string (label-patch p #t))))] [('action (message body)) (when show-actions? (output "~a broadcasts a message:\n~a\n" @@ -172,7 +172,7 @@ (with-color YELLOW (output "~a receives an event:\n~a\n" (format-pids process-names sink) - (patch->pretty-string p))))] + (patch->pretty-string (label-patch p #t)))))] [('event (message body)) (when show-events? (with-color YELLOW