diff options
| -rw-r--r-- | starling/node.scm | 7 |
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))) |