From 6c3f3066945ae49c612d3a52e6496b26a9d55193 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 25 Jun 2013 18:16:17 -0400
Subject: Apply SDL:enum->number on keysyms.

---
 2d/game-loop.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index f2faf13..92d3796 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -73,9 +73,12 @@
   "Calls the relevant callback for the event."
   (case (SDL:event:type e)
     ((SDL_KEYDOWN)
-     (key-down-callback (SDL:event:key:keysym:sym e)))
+     (key-down-callback (event-keycode e)))
     ((SDL_KEYUP)
-     (key-up-callback (SDL:event:key:keysym:sym e)))))
+     (key-up-callback (event-keycode e)))))
+
+(define (event-keycode e)
+  (SDL:enum->number SDL:event-keys (SDL:event:key:keysym:sym e)))
 
 ;;;
 ;;; Update and Render
-- 
cgit v1.2.3