From 0db11332fe08c154c1954f5d4fe13f75a703feb8 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 20 Jun 2019 07:52:47 -0400 Subject: node: Remove dynamic agenda setting in activate/deactivate. It was confusing because no other methods do this. --- starling/node.scm | 16 +++++++--------- 1 file 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 )) "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 )) "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 )) "Mark NODE as visible." -- cgit v1.2.3