Remove redundant `facet-live?` test
This commit is contained in:
parent
bc9b931312
commit
9726376c82
|
@ -375,9 +375,8 @@
|
||||||
(with-current-facet [ds actor f #f]
|
(with-current-facet [ds actor f #f]
|
||||||
(boot-proc))
|
(boot-proc))
|
||||||
(push-script! ds actor (lambda ()
|
(push-script! ds actor (lambda ()
|
||||||
(when (and (facet-live? f)
|
(when (or (and parent (not (facet-live? parent)))
|
||||||
(or (and parent (not (facet-live? parent)))
|
(facet-inert? ds f))
|
||||||
(facet-inert? ds f)))
|
|
||||||
(terminate-facet! ds f)))))
|
(terminate-facet! ds f)))))
|
||||||
|
|
||||||
(define (facet-inert? ds f)
|
(define (facet-inert? ds f)
|
||||||
|
|
Loading…
Reference in New Issue