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

Run stop-scripts in one scheduled execution

This commit is contained in:
Tony Garnock-Jones 2018-04-25 19:54:58 +01:00
parent dfe8a3e96e
commit ce6cd58930
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
syndicate/dataspace.rkt
View File

@ -437,12 +437,10 @@
;; Run stop-scripts after terminating children. This means that
;; children's stop-scripts run before ours.
(for [(script (in-list (reverse (facet-stop-scripts f))))]
(schedule-script! ds
ac
(lambda ()
(with-current-facet [ds ac f #t]
(script)))))
(schedule-script! ds ac (lambda ()
(with-current-facet [ds ac f #t]
(for [(script (in-list (reverse (facet-stop-scripts f))))]
(script)))))
(retract-facet-assertions-and-subscriptions! ds f)