diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-11-03 18:01:19 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-11-03 18:01:19 -0500 |
| commit | 4848f16eec48b1597a882147aaafbfe937d5e321 (patch) | |
| tree | 45e67cb2e2d77784f9c3e9de1ad593e22fdb2b33 /2d/game-loop.scm | |
| parent | 5ea47905046917ae79dde3155cd78268479c48fc (diff) | |
Fix default key-down event.
Diffstat (limited to '2d/game-loop.scm')
| -rw-r--r-- | 2d/game-loop.scm | 3 |
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 |