summaryrefslogtreecommitdiff
path: root/2d/game.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/game.scm')
-rw-r--r--2d/game.scm5
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