Repair error: stop-facet scripts must run in parent facet's context!
This commit is contained in:
parent
6a7b9d57db
commit
e4a9f1fa8f
|
@ -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)))))
|
||||
|
|
Loading…
Reference in New Issue