diff options
-rw-r--r-- | README.org | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -24,8 +24,7 @@ (use-modules (figl gl) (2d sprite) (2d game-loop) - (2d window) - (2d input)) + (2d window)) (define window-width 800) (define window-height 600) @@ -35,7 +34,7 @@ (display key) (newline) (case key ;; Quit program when ESCAPE or Q is pressed. - ((any-equal? key (keycode escape) (keycode q)) + ((any-equal? key 'escape 'q) (close-window) (quit)))) |