diff options
| -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)))) |