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/game.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/game.scm')
-rw-r--r-- | 2d/game.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/2d/game.scm b/2d/game.scm index b3f57ac..eb297a9 100644 --- a/2d/game.scm +++ b/2d/game.scm @@ -81,7 +81,7 @@ many times as `tick-interval` can divide ACCUMULATOR. The return value is the unused accumulator time." (while (>= (accumulator) (tick-interval)) (read-input) - (tick-agenda!) + (tick-agenda! *global-agenda*) (accumulator (- (accumulator) (tick-interval))))) (define (alpha) @@ -95,8 +95,7 @@ is the unused accumulator time." "Advance the game by one frame." (if (game-paused?) (begin - (with-agenda paused-agenda - (tick-agenda!)) + (tick-agenda! paused-agenda) (SDL:delay (tick-interval)) accumulator) (catch #t |