Fix default key-down event.

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