Eliminate a (mostly harmless) source of #f current-facet.
This commit is contained in:
parent
669122766d
commit
367b39ce39
|
@ -486,10 +486,10 @@
|
||||||
|
|
||||||
;; Run stop-scripts after terminating children. This means that
|
;; Run stop-scripts after terminating children. This means that
|
||||||
;; children's stop-scripts run before ours.
|
;; children's stop-scripts run before ours.
|
||||||
(schedule-script! ac (lambda ()
|
(push-script! ac (lambda ()
|
||||||
(with-current-facet [f]
|
(with-current-facet [f]
|
||||||
(for [(script (in-list (reverse (facet-stop-scripts f))))]
|
(for [(script (in-list (reverse (facet-stop-scripts f))))]
|
||||||
(script)))))
|
(script)))))
|
||||||
|
|
||||||
(retract-facet-assertions-and-subscriptions! f)
|
(retract-facet-assertions-and-subscriptions! f)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue