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/repl.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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

diff --git a/2d/repl.scm b/2d/repl.scm
index 02237b6..f48b6d2 100644
--- a/2d/repl.scm
+++ b/2d/repl.scm
@@ -25,7 +25,6 @@
   #:use-module (system repl coop-server)
   #:use-module (system repl server)
   #:use-module (2d agenda)
-  #:use-module (2d game)
   #:export (start-2d-repl))
 
 (define* (start-2d-repl #:optional (port (make-tcp-server-socket #:port 37146)))
@@ -33,6 +32,6 @@
 default, this port is 37146.  Additionally, a process is scheduled to
 poll the REPL server upon every tick of the game loop."
   (let ((server (spawn-coop-repl-server port)))
-    (schedule-each game-agenda
-                   (lambda ()
-                     (poll-coop-repl-server server)))))
+    (schedule-each
+     (lambda ()
+       (poll-coop-repl-server server)))))
-- 
cgit v1.2.3