diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-15 00:34:27 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-15 00:39:18 +0100 |
| commit | 33d7a9af9e5fa6443b434d78bde6cf7c5936fca4 (patch) | |
| tree | 7cc636d36a299ff3da76dad811ab18868ae8e1e0 | |
| parent | d069601d7bdf027b7e2e29deab339abe696ba657 (diff) | |
Replace (chickadee input keyboard).
| -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)) '() |