summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-11-15 00:34:27 +0100
committerRicardo Wurmus <rekado@elephly.net>2018-11-15 00:39:18 +0100
commit33d7a9af9e5fa6443b434d78bde6cf7c5936fca4 (patch)
tree7cc636d36a299ff3da76dad811ab18868ae8e1e0
parentd069601d7bdf027b7e2e29deab339abe696ba657 (diff)
Replace (chickadee input keyboard).
-rw-r--r--scenes/game.scm6
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))
'()