From 33d7a9af9e5fa6443b434d78bde6cf7c5936fca4 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 15 Nov 2018 00:34:27 +0100 Subject: Replace (chickadee input keyboard). --- scenes/game.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scenes') 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 @@ ;;; . (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)) '() -- cgit v1.2.3