Repair error: stop-facet scripts must run in parent facet's context!
This commit is contained in:
parent
a3dfb2c5aa
commit
f58c2fb8dc
|
@ -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