summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-05-24 07:46:21 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-05-24 07:46:21 -0400
commit8f203643b8f8bd9770ab2494d474896ab56f8463 (patch)
tree7a53c34bb72eac4c818677dc7c706ed145d65902
parent117b5570b53e17b24f584dfb118e60b36d7b0dd0 (diff)
node: Use <redefinable-class> when in dev 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)))