From 8f203643b8f8bd9770ab2494d474896ab56f8463 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 24 May 2019 07:46:21 -0400
Subject: node: Use <redefinable-class> when in dev mode.

---
 starling/node.scm | 7 +++++--
 1 file 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)))
-- 
cgit v1.2.3