node: Use <redefinable-class> when in dev mode.

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)))