From 5a4c3abb3a05ec09100aab7857caeb8832948878 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 9 Jan 2014 20:34:00 -0500
Subject: Fix crash when handling an SDL event.

* 2d/game.scm (handle-event): Fix bug.
---
 2d/game.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/2d/game.scm b/2d/game.scm
index b2dc0a7..b3f57ac 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -163,4 +163,4 @@ milliseconds of the last iteration of the loop."
   "Run the relevant hook for the event E."
   (let ((handle (hashq-get-handle event-handlers (SDL:event:type e))))
     (when handle
-      ((car handle) e))))
+      ((cdr handle) e))))
-- 
cgit v1.2.3