diff options
Diffstat (limited to '2d/keyboard.scm')
| -rw-r--r-- | 2d/keyboard.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/2d/keyboard.scm b/2d/keyboard.scm index d46fb76..97bc20a 100644 --- a/2d/keyboard.scm +++ b/2d/keyboard.scm @@ -25,7 +25,7 @@ #:use-module ((sdl sdl) #:prefix SDL:) #:use-module (2d event) #:use-module (2d signal) - #:use-module (2d vector2) + #:use-module (2d vector) #:export (key-press-hook key-release-hook key-last-down @@ -75,10 +75,10 @@ KEY is pressed or #f otherwise." (define (key-directions up down left right) (signal-map (lambda (up? down? left? right?) - (vector2 (+ (if left? -1 0) - (if right? 1 0)) - (+ (if up? -1 0) - (if down? 1 0)))) + (vector (+ (if left? -1 0) + (if right? 1 0)) + (+ (if up? -1 0) + (if down? 1 0)))) (key-down? up) (key-down? down) (key-down? left) |