summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-11-03 18:01:19 -0500
committerDavid Thompson <dthompson2@worcester.edu>2013-11-03 18:01:19 -0500
commit4848f16eec48b1597a882147aaafbfe937d5e321 (patch)
tree45e67cb2e2d77784f9c3e9de1ad593e22fdb2b33
parent5ea47905046917ae79dde3155cd78268479c48fc (diff)
Fix default key-down event.
-rw-r--r--2d/game-loop.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index 79e09b7..78a5655 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -126,7 +126,8 @@ time in milliseconds that has passed since the last game update."
;; By default, pressing the escape key will pop the current scene, and
;; closing the window will quit the game.
(default-events `((key-down . ,(lambda (key mod unicode)
- (pop-scene)))
+ (when (eq? key 'escape)
+ (pop-scene))))
(quit . ,quit-game)))
(define handle-events