From e372121ce523198bc40e3d15dbd48438c137cfcd Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 29 Nov 2014 13:44:02 -0500
Subject: input: keyboard: Reverse up/down in key-directions.

* sly/input/keyboard.scm (key-directions): Reverse up and down.
---
 sly/input/keyboard.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sly/input/keyboard.scm b/sly/input/keyboard.scm
index e197424..574375e 100644
--- a/sly/input/keyboard.scm
+++ b/sly/input/keyboard.scm
@@ -77,8 +77,8 @@ KEY is pressed or #f otherwise."
   (signal-map (lambda (up? down? left? right?)
                 (vector2 (+ (if left? -1 0)
                             (if right? 1 0))
-                         (+ (if up? -1 0)
-                            (if down? 1 0))))
+                         (+ (if up? 1 0)
+                            (if down? -1 0))))
               (key-down? up)
               (key-down? down)
               (key-down? left)
-- 
cgit v1.2.3