Notice attempts to install more than one root facet in an actor
This commit is contained in:
parent
4be935a160
commit
a3dfb2c5aa
|
@ -365,7 +365,13 @@
|
||||||
(seteq)))
|
(seteq)))
|
||||||
(if parent
|
(if parent
|
||||||
(set-facet-children! parent (set-add (facet-children parent) f))
|
(set-facet-children! parent (set-add (facet-children parent) f))
|
||||||
(set-actor-root-facet! actor f))
|
(begin
|
||||||
|
(when (actor-root-facet actor)
|
||||||
|
;; TODO: consider whether this is legit. For example, (stop-facet the-root-facet
|
||||||
|
;; (react ...) (react ...)) should probably be admissible, so perhaps more than one
|
||||||
|
;; root facet should be allowed?
|
||||||
|
(error 'add-facet! "INTERNAL ERROR: Attempt to add second root facet"))
|
||||||
|
(set-actor-root-facet! actor f)))
|
||||||
(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 ()
|
||||||
|
|
Loading…
Reference in New Issue