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

Avoid (cdr '()) for patches from drivers

This commit is contained in:
Tony Garnock-Jones 2017-08-13 20:47:40 -04:00
parent 6728fcf10d
commit f3b5fd6cd1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/trace/stderr.rkt
View File

@ -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