diff options
Diffstat (limited to 'examples/tilemap.scm')
| -rw-r--r-- | examples/tilemap.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/tilemap.scm b/examples/tilemap.scm index 49106b0..cbe6e86 100644 --- a/examples/tilemap.scm +++ b/examples/tilemap.scm @@ -2,12 +2,10 @@ (srfi srfi-1) (srfi srfi-9) (srfi srfi-42) - (ice-9 format) (2d sprite) (2d game-loop) (2d window) (2d vector) - (2d input) (2d helpers)) (init-2d) @@ -77,7 +75,7 @@ (list->array 2 sprites))) (define (key-down key mod unicode) - (cond ((any-equal? key (keycode escape) (keycode q)) + (cond ((any-equal? key 'escape 'q) (close-window) (quit)))) |