diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-10-07 21:39:48 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-10-23 19:44:51 -0400 |
| commit | bba3d11def443f4b3452724925d0551cf9e8f8ee (patch) | |
| tree | d8e831fe0284bafa5d2c32d50e346d478c2da940 /2d/game.scm | |
| parent | 2aab93ed1d2e675dc4ec12386a6a7f9ebc3a8db7 (diff) | |
Add a paused flag in addition to the running flag.
Diffstat (limited to '2d/game.scm')
| -rw-r--r-- | 2d/game.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |