Repair error: stop-facet scripts must run in parent facet's context!

This commit is contained in:
Tony Garnock-Jones 2018-04-22 21:03:21 +01:00
parent a3dfb2c5aa
commit f58c2fb8dc
1 changed files with 1 additions and 1 deletions

View File

@ -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)))))