X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_events.scm;h=cd939850027962c72d157a954b05fe8e490c83cb;hb=b82a1140db7d69b576d6b625c4932d66123a36fd;hp=a57e9a13039617ef1347e42eb53d6157283d6233;hpb=44cea6ad0255b8bda0cd3ea74441d47d8efc5eb5;p=gacela.git

diff --git a/src/gacela_events.scm b/src/gacela_events.scm
index a57e9a1..cd93985 100644
--- 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)