summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/starling/node.scm b/starling/node.scm
index 101887e..1b162f6 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -190,11 +190,11 @@ represented as a ratio in the range [0, 1]."
;; index for quick lookup later.
(for-each (lambda (child)
(set! (parent child) new-parent)
+ (hashq-set! (children-map new-parent) (name child) child)
;; If the parent is active, that means the new children
;; must also be active.
(when (active? new-parent)
- (activate child))
- (hashq-set! (children-map new-parent) (name child) child))
+ (activate child)))
new-children))
(define-method (detach (node <node>))