diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-05-04 14:03:00 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-05-04 14:39:38 -0400 |
commit | d0ff41fb7a33c096a792ab57f5bbf7992b1cc399 (patch) | |
tree | 4b9bd31e0fd6ae71245892a353af83628372e63e /2d/repl.scm | |
parent | c2a7defe0d13b20e50dbaf8aa48ffef5f65de65b (diff) |
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.
Diffstat (limited to '2d/repl.scm')
-rw-r--r-- | 2d/repl.scm | 7 |
1 files changed, 3 insertions, 4 deletions
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))))) |