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

Remove redundant `facet-live?` test

This commit is contained in:
Tony Garnock-Jones 2018-04-25 19:40:53 +01:00
parent bc9b931312
commit 9726376c82
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/dataspace.rkt
View File

@ -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)