(no commit message)

[gacela.git] / src / gacela_events.scm

diff --git a/src/gacela_events.scm b/src/gacela_events.scm
index a57e9a13039617ef1347e42eb53d6157283d6233..cd939850027962c72d157a954b05fe8e490c83cb 100644 (file)
--- a/src/gacela_events.scm
+++ b/src/gacela_events.scm
@@ -45,7 +45,7 @@
   (cond ((not (null? events))
         (let ((event (car events)))
           (cond ((= (assoc-ref event 'type) SDL_KEYDOWN) (key-press (assoc-ref event 'key.keysym.sym)))
-                ((= (assoc-ref event 'type) SDL_KEYUP) (key-release (assoc-ref event :key.keysym.sym)))))
+                ((= (assoc-ref event 'type) SDL_KEYUP) (key-release (assoc-ref event 'key.keysym.sym)))))
         (process-keyboard-events (cdr events)))))
 
 (define key? #f)