diff options
| -rw-r--r-- | starling/node.scm | 4 |
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>)) |