From 38830c4514949f06cdbf05b2d67e82080654fa70 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 27 Dec 2022 08:56:42 -0500
Subject: node: Add #:children initarg.

---
 catbird/node.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/catbird/node.scm b/catbird/node.scm
index 6899d7d..998fe58 100644
--- a/catbird/node.scm
+++ b/catbird/node.scm
@@ -76,6 +76,7 @@
 
 (define-method (initialize (node <node>) initargs)
   (next-method)
+  (apply attach-to node (get-keyword #:children initargs '()))
   (on-boot node))
 
 (define-method (sort-children (node <node>))
-- 
cgit v1.2.3