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]
|
||||
(boot-proc))
|
||||
(push-script! ds actor (lambda ()
|
||||
(when (and (facet-live? f)
|
||||
(or (and parent (not (facet-live? parent)))
|
||||
(facet-inert? ds f)))
|
||||
(when (or (and parent (not (facet-live? parent)))
|
||||
(facet-inert? ds f))
|
||||
(terminate-facet! ds f)))))
|
||||
|
||||
(define (facet-inert? ds f)
|
||||
|
|
Loading…
Reference in New Issue