From f3b5fd6cd149ee17fd961070e7aa4549f09018bd Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 13 Aug 2017 20:47:40 -0400 Subject: [PATCH] Avoid (cdr '()) for patches from drivers --- racket/syndicate/trace/stderr.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/trace/stderr.rkt b/racket/syndicate/trace/stderr.rkt index 51be93a..9e12b26 100644 --- a/racket/syndicate/trace/stderr.rkt +++ b/racket/syndicate/trace/stderr.rkt @@ -169,7 +169,11 @@ (format-point process-names sink) (format-point process-names source) (format-point process-names cause) - (format-patch process-names (cdr (spacetime-space sink)) p))))] + (match (spacetime-space sink) + ['() ;; events from the outside world + (patch->pretty-string p)] + [(cons _ context-path) + (format-patch process-names context-path p)]))))] [('event (list cause (message body))) (when show-events? (with-color YELLOW