From 21ff408c45685afacd3c0fffb3f81c46e9b00874 Mon Sep 17 00:00:00 2001 From: David Thompson 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/repl/repl.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to '2d/repl') 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 -- cgit v1.2.3