From f58c2fb8dc669d5ac08c4e2bf5867619c39ac949 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 22 Apr 2018 21:03:21 +0100 Subject: [PATCH] Repair error: stop-facet scripts must run in parent facet's context! --- syndicate/dataspace.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index f1d5f88..2b23b6a 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -454,7 +454,7 @@ (define (stop-facet! ds f stop-script) (define ac (facet-actor f)) - (with-current-facet [ds ac f #t] ;; run in parent context wrt terminating facet + (with-current-facet [ds ac (facet-parent f) #t] ;; run in parent context wrt terminating facet (schedule-script! ds ac (lambda () (terminate-facet! ds f) (schedule-script! ds ac stop-script)))))