summaryrefslogtreecommitdiff
path: root/2d/repl
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-06 20:49:28 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-06 20:49:28 -0500
commit21ff408c45685afacd3c0fffb3f81c46e9b00874 (patch)
tree11d3575ae00255a1319273ece6d94040d31795dc /2d/repl
parentc83760250f25373cd5f66ca096b5a762da82d072 (diff)
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.
Diffstat (limited to '2d/repl')
-rw-r--r--2d/repl/repl.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm
index 1cc2992..87c5477 100644
--- a/2d/repl/repl.scm
+++ b/2d/repl/repl.scm
@@ -167,9 +167,8 @@ INPUT, OUTPUT, and ERROR ports."
(define poll-interval 5)
-(schedule-interval flush-repl poll-interval)
-(with-agenda paused-agenda
- (schedule-interval flush-repl poll-interval))
+(schedule-interval game-agenda flush-repl poll-interval)
+(schedule-interval paused-agenda flush-repl poll-interval)
;;;
;;; The repl