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

Make sure spawn tracing happens before initial-patch tracing

This commit is contained in:
Tony Garnock-Jones 2016-09-06 16:45:59 +01:00
parent 02828d8356
commit c844c0d596
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/syndicate/dataspace.rkt
View File

@ -223,7 +223,6 @@
[other (values patch-empty other)]))
(define-values (new-mux new-pid delta delta-aggregate)
(mux-add-stream (dataspace-mux w) initial-patch))
(trace-action-produced new-pid initial-patch)
(let* ((w (struct-copy dataspace w
[process-table (hash-set (dataspace-process-table w)
new-pid
@ -231,6 +230,7 @@
behavior
initial-state))]))
(w (enqueue-actions (postprocess w new-pid) new-pid remaining-initial-actions)))
(trace-action-produced new-pid initial-patch)
(deliver-patches w new-mux new-pid delta delta-aggregate)))))
(define (deliver-patches w new-mux acting-label delta delta-aggregate)