diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-01-09 20:34:00 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-01-09 20:34:00 -0500 |
| commit | 5a4c3abb3a05ec09100aab7857caeb8832948878 (patch) | |
| tree | 592f41f27ce6271b28c664318917b72ba405701d | |
| parent | 39b49c97421578332832832f3ca4a18c9816cefb (diff) | |
Fix crash when handling an SDL event.
* 2d/game.scm (handle-event): Fix bug.
| -rw-r--r-- | 2d/game.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |