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

Avoid (cdr '()) for patches from drivers - for msd.rkt this time

This commit is contained in:
Tony Garnock-Jones 2017-08-13 20:52:29 -04:00
parent af30c19ee0
commit e2d1ae853c
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
racket/syndicate/trace/msd.rkt
View File

@ -51,13 +51,20 @@
[('action-interpreted 'quit) [('action-interpreted 'quit)
(write-event! source sink 'quit)] (write-event! source sink 'quit)]
[('event (list cause (? patch? p))) [('event (list cause (? patch? p)))
(write-event! source sink 'event (match (spacetime-space sink)
'patch ['()
(format-patch '#hash() (cdr (spacetime-space sink)) p) (write-event! source sink 'event
cause 'patch
(set-map (extract-patch-pids p) (patch->pretty-string p)
(lambda (local-pid) cause
(cons local-pid (cdr (spacetime-space sink))))))] (list (spacetime-space cause)))]
[(cons _ context-path)
(write-event! source sink 'event
'patch
(format-patch '#hash() context-path p)
cause
(set-map (extract-patch-pids p)
(lambda (local-pid) (cons local-pid context-path))))])]
[('event (list cause (message body))) [('event (list cause (message body)))
(write-event! source sink 'event (write-event! source sink 'event
'message 'message