From cc97cfe878f2e0cb010c26c0e5cb650720b06dfb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 14 Apr 2021 20:59:13 -0400
Subject: node: Allow children to be attached via make method.

---
 starling/node.scm | 2 ++
 1 file changed, 2 insertions(+)

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)))
-- 
cgit v1.2.3