summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-05-23 08:53:19 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-05-23 08:53:19 -0400
commit47e6e9647abb015dcfa6ea0305ebce5e42ddf5bb (patch)
tree329d94d754ef5d77b88478777e5f361b3035dedf
parent298a88efcaf10da812bed4d8fa7c54e27daae1eb (diff)
node: Make node class hierarchy redefinable.
-rw-r--r--starling/node.scm4
1 files changed, 3 insertions, 1 deletions
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)))