diff options
Diffstat (limited to 'scenes/game.scm')
-rw-r--r-- | scenes/game.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scenes/game.scm b/scenes/game.scm index aaabd11..f85207b 100644 --- a/scenes/game.scm +++ b/scenes/game.scm @@ -17,7 +17,6 @@ ;;; <http://www.gnu.org/licenses/>. (define-module (scenes game) - #:use-module (chickadee input keyboard) #:use-module (chickadee math easings) #:use-module (chickadee math rect) #:use-module (chickadee math vector) @@ -26,6 +25,7 @@ #:use-module (chickadee render shapes) #:use-module (chickadee render texture) #:use-module (chickadee render tiled) + #:use-module ((sdl2 input keyboard) #:prefix sdl2:) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (ice-9 match) @@ -182,13 +182,13 @@ positions layer." (begin ;; Stop any motion in a direction when the matching key has just ;; been released. - (let ((released (filter key-released? (previous-key-presses player)))) + (let ((released (filter sdl2:key-released? (previous-key-presses player)))) (unless (null? released) (walk player released 'stop))) ;; Detect newly pressed keys. (let ((active (fold (lambda (direction acc) - (if (key-pressed? direction) + (if (sdl2:key-pressed? direction) (cons direction acc) acc)) '() |