From d0ff41fb7a33c096a792ab57f5bbf7992b1cc399 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 4 May 2014 14:03:00 -0400
Subject: Add current-agenda parameter.

* 2d/agenda.scm (current-agenda): New variable.
  (with-agenda): New macro.
  (agenda-time, tick-agenda!, clear-agenda!, schedule)
  (schedule-interval, schedule-each, wait): Remove agenda parameter.

* 2d/game.scm (game-agenda): Delete it.
  (update): Tick current agenda.

* 2d/helpers.scm (define-guardian): Remove agenda argument.

* 2d/repl.scm (start-2d-repl): Remove agenda argument to schedule-each.

* 2d/signal.scm (signal-sample, signal-delay, signal-throttle): Remove
  agenda parameter.

* 2d/sprite.scm:
* examples/common.scm:
* examples/coroutine.scm:
* examples/font.scm:
* examples/particles.scm: Remove mention of game-agenda.

* README.org: Update example snippets.
---
 2d/game.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/2d/game.scm b/2d/game.scm
index befe784..d6a0345 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -32,7 +32,6 @@
   #:use-module (2d window)
   #:export (tick-interval
             max-ticks-per-frame
-            game-agenda
             draw-hook
             start-game-loop
             stop-game-loop))
@@ -49,7 +48,6 @@
 ;; completely unresponsive and possibly crashing.
 (define max-ticks-per-frame 4)
 (define draw-hook (make-hook 2))
-(define game-agenda (make-agenda))
 
 (define (draw dt alpha)
   "Render a frame."
@@ -68,7 +66,7 @@ is the unused accumulator time."
     (cond ((>= ticks max-ticks-per-frame)
            lag)
           ((>= lag tick-interval)
-           (tick-agenda! game-agenda)
+           (tick-agenda!)
            (iter (- lag tick-interval) (1+ ticks)))
           (else
            lag)))
-- 
cgit v1.2.3