From 3fb20cda0eaee5c0933edadba2f2a3e54050467e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 27 Aug 2018 17:48:52 -0400
Subject: Reset agenda when node exits scene.

---
 starling/node.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'starling/node.scm')

diff --git a/starling/node.scm b/starling/node.scm
index 88790fa..4ce46dd 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -136,7 +136,8 @@ represented as a ratio in the range [0, 1]."
   (with-agenda (agenda node)
     (set! (active? node) #f)
     (on-exit node)
-    (for-each-child deactivate node)))
+    (for-each-child deactivate node)
+    (reset-agenda)))
 
 
 ;;;
-- 
cgit v1.2.3