Avoid stomping on current-actor-state if it is changed in patch-fn

This commit is contained in:
Tony Garnock-Jones 2016-11-29 12:24:31 +13:00
parent f677c3a888
commit 9bb831cac5
1 changed files with 1 additions and 1 deletions

View File

@ -955,7 +955,7 @@
(mux-add-stream (actor-state-mux a)
(parameterize ((current-dataflow-subject-id (list (current-facet-id) new-eid)))
(patch-fn))))
(current-actor-state (struct-copy actor-state a [mux new-mux]))
(current-actor-state (struct-copy actor-state (current-actor-state) [mux new-mux]))
(values new-eid delta-aggregate)))
(update-facet! (current-facet-id)
(lambda (f)