From 9bb831cac5933c133cad1fb8cbf5a69111851947 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 29 Nov 2016 12:24:31 +1300 Subject: [PATCH] Avoid stomping on current-actor-state if it is changed in patch-fn --- racket/syndicate/actor.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt index 48b1646..9e28385 100644 --- a/racket/syndicate/actor.rkt +++ b/racket/syndicate/actor.rkt @@ -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)