From f2f90e8992420c3c3dd0b3ffa5e17ced4e9a4589 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 14 Dec 2018 08:34:14 -0500 Subject: Fix game controller stuff. Forgot to prefix imported procedures since I define procedures with the same names. --- chickadee.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'chickadee.scm') diff --git a/chickadee.scm b/chickadee.scm index 9b225ba..478cf6c 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -24,7 +24,7 @@ (define-module (chickadee) #:use-module (sdl2) #:use-module (sdl2 events) - #:use-module (sdl2 input game-controller) + #:use-module ((sdl2 input game-controller) #:prefix sdl2:) #:use-module (sdl2 input joystick) #:use-module ((sdl2 input keyboard) #:prefix sdl2:) #:use-module ((sdl2 input mouse) #:prefix sdl2:) @@ -80,10 +80,10 @@ (hashv-ref *controllers* joystick-id)) (define (add-controller joystick-index) - (let ((controller (open-game-controller joystick-index))) + (let ((controller (sdl2:open-game-controller joystick-index))) (hashv-set! *controllers* (joystick-instance-id - (game-controller-joystick controller)) + (sdl2:game-controller-joystick controller)) controller) controller)) @@ -93,7 +93,7 @@ (define (open-all-controllers) (let loop ((i 0)) (when (< i (num-joysticks)) - (when (game-controller-index? i) + (when (sdl2:game-controller-index? i) (add-controller i)) (loop (+ i 1))))) @@ -192,7 +192,7 @@ not being pushed at all." (controller-device-event-which event)))) (controller-remove controller) (remove-controller (controller-device-event-which event)) - (close-game-controller controller))) + (sdl2:close-game-controller controller))) ((controller-button-down-event? event) (controller-press (lookup-controller (controller-button-event-which event)) -- cgit v1.2.3