summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-06-20 07:52:47 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-06-20 07:52:47 -0400
commit0db11332fe08c154c1954f5d4fe13f75a703feb8 (patch)
tree230ea02a13705b96eea72b4f543a31b841a5df2f
parent177ffdd7a986208a6ff041b6d7b50c81abc56cf2 (diff)
node: Remove dynamic agenda setting in activate/deactivate.
It was confusing because no other methods do this.
-rw-r--r--starling/node.scm16
1 files changed, 7 insertions, 9 deletions
diff --git a/starling/node.scm b/starling/node.scm
index ee4fbb8..f8a0e79 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -146,18 +146,16 @@ represented as a ratio in the range [0, 1]."
(define-method (activate (node <node>))
"Mark NODE and all of its children as active."
;; First time activating? We must boot!
- (with-agenda (agenda node)
- (unless (booted? node) (boot node))
- (set! (active? node) #t)
- (on-enter node)
- (for-each-child activate node)))
+ (unless (booted? node) (boot node))
+ (set! (active? node) #t)
+ (on-enter node)
+ (for-each-child activate node))
(define-method (deactivate (node <node>))
"Mark NODE and all of its children as inactive."
- (with-agenda (agenda node)
- (set! (active? node) #f)
- (on-exit node)
- (for-each-child deactivate node)))
+ (set! (active? node) #f)
+ (on-exit node)
+ (for-each-child deactivate node))
(define-method (show (node <node>))
"Mark NODE as visible."