diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-14 17:02:17 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-14 17:02:17 -0400 |
| commit | f08e14fd51e2b1f5920ac6816774c5e72cbee5c0 (patch) | |
| tree | 3ed2df4b9c78ca2872b8af2aa91ed3dbff004351 /lisparuga/node.scm | |
| parent | 2bdb665cffff93721bbd38b3809a7c420dff2f1c (diff) | |
Day 4 progress.
Diffstat (limited to 'lisparuga/node.scm')
| -rw-r--r-- | lisparuga/node.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisparuga/node.scm b/lisparuga/node.scm index 2dbbd41..0939336 100644 --- a/lisparuga/node.scm +++ b/lisparuga/node.scm @@ -168,8 +168,9 @@ represented as a ratio in the range [0, 1]." ;; First time activating? We must boot! (unless (booted? node) (boot node)) (set! (active? node) #t) - (on-enter node) - (for-each-child activate node)) + (for-each-child activate node) + ;; Activate all children, recursively, before calling on-enter hook. + (on-enter node)) (define-method (deactivate (node <node>)) "Mark NODE and all of its children as inactive." |