actor-remove-exit-hook!
This commit is contained in:
parent
4c72ab11f4
commit
557a0fb499
|
@ -19,6 +19,7 @@
|
||||||
actor-daemon?
|
actor-daemon?
|
||||||
actor-exit-reason
|
actor-exit-reason
|
||||||
actor-add-exit-hook!
|
actor-add-exit-hook!
|
||||||
|
actor-remove-exit-hook!
|
||||||
actor-daemon!
|
actor-daemon!
|
||||||
|
|
||||||
facet?
|
facet?
|
||||||
|
@ -155,6 +156,10 @@
|
||||||
(define (actor-add-exit-hook! ac hook)
|
(define (actor-add-exit-hook! ac hook)
|
||||||
(set-actor-exit-hooks! ac (cons hook (actor-exit-hooks ac))))
|
(set-actor-exit-hooks! ac (cons hook (actor-exit-hooks ac))))
|
||||||
|
|
||||||
|
(define (actor-remove-exit-hook! ac hook)
|
||||||
|
(set-actor-exit-hooks! ac (filter (lambda (h) (not (eq? h hook)))
|
||||||
|
(actor-exit-hooks ac))))
|
||||||
|
|
||||||
(define (actor-daemon! ac daemon?)
|
(define (actor-daemon! ac daemon?)
|
||||||
(when (not (eq? daemon? (actor-daemon? ac)))
|
(when (not (eq? daemon? (actor-daemon? ac)))
|
||||||
(set-actor-daemon?! ac daemon?)
|
(set-actor-daemon?! ac daemon?)
|
||||||
|
|
Loading…
Reference in New Issue