current-action-transformer must be a store, not a parameter, else it sticks around for (e.g.) supervision of children of supervised actors
This commit is contained in:
parent
3a3d216908
commit
f677c3a888
|
@ -244,7 +244,7 @@
|
||||||
(define in-script? (make-parameter #f))
|
(define in-script? (make-parameter #f))
|
||||||
|
|
||||||
;; Parameterof (Action -> Action)
|
;; Parameterof (Action -> Action)
|
||||||
(define current-action-transformer (make-parameter values))
|
(define current-action-transformer (make-store))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Syntax; main entry points
|
;; Syntax; main entry points
|
||||||
|
@ -1072,7 +1072,8 @@
|
||||||
(make-dataflow-graph)))
|
(make-dataflow-graph)))
|
||||||
(current-pending-patch patch-empty)
|
(current-pending-patch patch-empty)
|
||||||
(current-pending-actions '())
|
(current-pending-actions '())
|
||||||
(current-pending-scripts (make-empty-pending-scripts))]
|
(current-pending-scripts (make-empty-pending-scripts))
|
||||||
|
(current-action-transformer values)]
|
||||||
(with-current-facet #f (set) #f
|
(with-current-facet #f (set) #f
|
||||||
(schedule-script! #f script-proc)
|
(schedule-script! #f script-proc)
|
||||||
(run-scripts!))))
|
(run-scripts!))))
|
||||||
|
@ -1133,7 +1134,8 @@
|
||||||
a))
|
a))
|
||||||
(current-pending-patch patch-empty)
|
(current-pending-patch patch-empty)
|
||||||
(current-pending-actions '())
|
(current-pending-actions '())
|
||||||
(current-pending-scripts (make-empty-pending-scripts))]
|
(current-pending-scripts (make-empty-pending-scripts))
|
||||||
|
(current-action-transformer values)]
|
||||||
(for [((fid f) (in-hash (actor-state-facets a)))]
|
(for [((fid f) (in-hash (actor-state-facets a)))]
|
||||||
(facet-handle-event! fid f e #f))
|
(facet-handle-event! fid f e #f))
|
||||||
(run-scripts!))))
|
(run-scripts!))))
|
||||||
|
@ -1171,7 +1173,8 @@
|
||||||
(call-with-syndicate-effects
|
(call-with-syndicate-effects
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(with-store [(current-pending-actions '())
|
(with-store [(current-pending-actions '())
|
||||||
(current-pending-patch patch-empty)]
|
(current-pending-patch patch-empty)
|
||||||
|
(current-action-transformer values)]
|
||||||
(define result (thunk))
|
(define result (thunk))
|
||||||
(flush-pending-patch!)
|
(flush-pending-patch!)
|
||||||
(cons result (current-pending-actions))))))
|
(cons result (current-pending-actions))))))
|
||||||
|
|
Loading…
Reference in New Issue