summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/starling/node.scm b/starling/node.scm
index a80540b..578271e 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -23,6 +23,7 @@
(define-module (starling node)
#:use-module (chickadee scripting)
#:use-module (oop goops)
+ #:use-module (starling config)
#:export (<node>
name
rank
@@ -71,8 +72,10 @@
;; Determines whether or not the node and all of its children are
;; rendered.
(visible? #:accessor visible? #:init-form #t #:init-keyword #:visible?)
- ;; So that live coding works nicely...
- #:metaclass <redefinable-class>)
+ ;; Use redefinable classes when in dev mode.
+ #:metaclass (if developer-mode?
+ <redefinable-class>
+ <class>))
(define (for-each-child proc node)
(for-each proc (children node)))