syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make argument to `turn-stop!` mandatory

This commit is contained in:
Tony Garnock-Jones 2024-03-10 12:56:39 +01:00
parent 5d0d636f16
commit b214835bcc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
syndicate/actor.rkt
View File

@ -134,7 +134,9 @@
#:link? [link? #f]) #:link? [link? #f])
(define owning-facet (turn-active-facet (current-turn))) (define owning-facet (turn-active-facet (current-turn)))
(define e (make-engine 1 name (lambda (restart) (define e (make-engine 1 name (lambda (restart)
(when link? (turn! owning-facet (lambda () (turn-stop!)))) (when link?
(turn! owning-facet
(lambda () (turn-stop! owning-facet))))
(actor-system-shutdown! e) (actor-system-shutdown! e)
(restart void)))) (restart void))))
(when link? (facet-on-stop! owning-facet (lambda () (actor-system-shutdown! e)))) (when link? (facet-on-stop! owning-facet (lambda () (actor-system-shutdown! e))))
@ -344,7 +346,7 @@
(with-active-facet new-facet (stop-if-inert-after boot-proc)) (with-active-facet new-facet (stop-if-inert-after boot-proc))
new-facet)) new-facet))
(define (turn-stop! [f (turn-active-facet (current-turn))] [continuation #f]) (define (turn-stop! f [continuation #f])
(when (not (eq? (facet-actor f) (facet-actor (turn-active-facet (current-turn))))) (when (not (eq? (facet-actor f) (facet-actor (turn-active-facet (current-turn)))))
(error 'turn-stop! "Attempted to stop facet ~v from different actor ~v" (error 'turn-stop! "Attempted to stop facet ~v from different actor ~v"
f f
@ -532,7 +534,7 @@
(log-syndicate/actor-debug " DEQ checking ~a" f) (log-syndicate/actor-debug " DEQ checking ~a" f)
(when (or (and (facet-parent f) (not (facet-live? (facet-parent f)))) (when (or (and (facet-parent f) (not (facet-live? (facet-parent f))))
(facet-inert? f)) (facet-inert? f))
(turn-stop!))))) (turn-stop! f)))))
(define (deliver maybe-proc . args) (define (deliver maybe-proc . args)
(when maybe-proc (when maybe-proc