From bba3d11def443f4b3452724925d0551cf9e8f8ee Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 7 Oct 2013 21:39:48 -0400 Subject: Add a paused flag in addition to the running flag. --- 2d/game.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to '2d/game.scm') diff --git a/2d/game.scm b/2d/game.scm index 3bd314e..7bb0823 100644 --- a/2d/game.scm +++ b/2d/game.scm @@ -35,10 +35,10 @@ ;; When no event callbacks are specified for a scene, these ;; (hopefully) convenient defaults will be used. (define %default-scene-events - `((quit . ,(lambda (state) (quit-game-loop!))) + `((quit . ,(lambda (state) (quit-game))) (key-down . ,(lambda (state key mode unicode) (when (any-equal? key 'escape 'q) - (quit-game-loop!)))))) + (quit-game)))))) (define (default-scene-events) (copy-tree %default-scene-events)) -- cgit v1.2.3