diff options
| -rw-r--r-- | starling/node.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/starling/node.scm b/starling/node.scm index 4c7e56e..6461f58 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -182,6 +182,8 @@ (next-method) ;; Add node to global index. (hashv-set! (nodes-by-id node) (id node) node) + ;; Add children. + (apply attach-to node (get-keyword #:children initargs '()))) (define (for-each-child proc node) (for-each proc (children node))) |