From 47e6e9647abb015dcfa6ea0305ebce5e42ddf5bb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 23 May 2019 08:53:19 -0400
Subject: node: Make node class hierarchy redefinable.

---
 starling/node.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/starling/node.scm b/starling/node.scm
index 1b162f6..a80540b 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -70,7 +70,9 @@
   (active? #:accessor active? #:init-form #f)
   ;; Determines whether or not the node and all of its children are
   ;; rendered.
-  (visible? #:accessor visible? #:init-form #t #:init-keyword #:visible?))
+  (visible? #:accessor visible? #:init-form #t #:init-keyword #:visible?)
+  ;; So that live coding works nicely...
+  #:metaclass <redefinable-class>)
 
 (define (for-each-child proc node)
   (for-each proc (children node)))
-- 
cgit v1.2.3