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

Eliminate a (mostly harmless) source of #f current-facet.

This commit is contained in:
Tony Garnock-Jones 2018-05-01 22:39:26 +01:00
parent 669122766d
commit 367b39ce39
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
syndicate/dataspace.rkt
View File

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