diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-01-10 07:38:47 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-01-10 07:40:26 -0500 |
commit | 6bdd1e305834dcc9be22d9a54d84f025a24d4825 (patch) | |
tree | c78248afe975dfd874e5ce1506cb1f2a4a1a19df /2d/agenda.scm | |
parent | ccc85c51f5617ef0305fcb0e1d067ab6d39fc778 (diff) |
Change tick-agenda! and clear-agenda! to take agenda as arg.
* 2d/agenda.scm (tick-agenda!, clear-agenda!): Add agenda param.
* 2d/game.scm (update, tick): Update usage of tick-agenda!.
Diffstat (limited to '2d/agenda.scm')
-rw-r--r-- | 2d/agenda.scm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/2d/agenda.scm b/2d/agenda.scm index 4b28c16..46d6c12 100644 --- a/2d/agenda.scm +++ b/2d/agenda.scm @@ -145,7 +145,7 @@ and enqueue CALLBACK." ((deq! q)) ;; Execute scheduled procedure (flush-queue! q))) -(define (%update-agenda agenda) +(define (tick-agenda! agenda) "Move AGENDA forward in time and run scheduled procedures." (set-agenda-time! agenda (1+ (agenda-time agenda))) (let next-segment () @@ -158,7 +158,7 @@ and enqueue CALLBACK." (set-agenda-segments! agenda (rest-segments agenda)) (next-segment)))))) -(define (%clear-agenda agenda) +(define (clear-agenda! agenda) "Remove all scheduled procedures from AGENDA." (set-agenda-segments! agenda '())) @@ -198,14 +198,6 @@ next tick." tick." (schedule-interval thunk 1)) -(define (tick-agenda!) - "Advance time by 1 for the current agenda." - (%update-agenda (current-agenda))) - -(define (clear-agenda!) - "Clear the current agenda." - (%clear-agenda (current-agenda))) - (define* (wait #:optional (delay 1)) "Yield coroutine and schedule the continuation to be run after DELAY ticks. DELAY is 1 by default." |