From 21ff408c45685afacd3c0fffb3f81c46e9b00874 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 6 Feb 2014 20:49:28 -0500
Subject: Remove dynamic scoping of agendas.

* 2d/agenda.scm: (*global-agenda*, current-agenda, with-agenda): Delete.
  (agenda?, agenda-time): Export.
  (schedule-every, schedule-each): Rename schedule-every to
  schedule-each.
  (schedule-next): Delete.
* 2d/game.scm: (game-agenda): New variable.
  (update): Tick game-agenda.
* 2d/repl.scm: Use new agenda API.
* 2d/sprite.scm: Use new agenda API.
* 2d/time.scm: (time-every, time-each, time-delay): Change signature and
  use new agenda API.
* examples/coroutine.scm: Use new agenda API.
* examples/particles.scm: Use new agenda API.
---
 2d/sprite.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '2d/sprite.scm')

diff --git a/2d/sprite.scm b/2d/sprite.scm
index a0f13bf..2d6cca0 100644
--- a/2d/sprite.scm
+++ b/2d/sprite.scm
@@ -31,6 +31,7 @@
   #:use-module (2d agenda)
   #:use-module (2d animation)
   #:use-module (2d color)
+  #:use-module (2d game)
   #:use-module (2d helpers)
   #:use-module (2d math)
   #:use-module (2d signals)
@@ -302,7 +303,7 @@ currently bound."
   (hash-clear! animated-sprites))
 
 ;; Update animated sprites upon every update.
-(schedule-every update-animated-sprites!)
+(schedule-each game-agenda update-animated-sprites!)
 
 (export make-sprite
         sprite?
-- 
cgit v1.2.3