diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index 3f99fba..99fe148 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -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)