X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fgame.scm;fp=gacela%2Fgame.scm;h=fe5f0b3a1cfdc993d413ee9371f29c02b04a7fc0;hp=e8e635a51b0ad632dc3662a124702e14f0b979ce;hb=b463d97fdd8afd06f987f5f13ab73b9502e2421b;hpb=9c72ec850cadd9c1c273cac1c16817b15a73665a

diff --git a/gacela/game.scm b/gacela/game.scm
index e8e635a..fe5f0b3 100644
--- a/gacela/game.scm
+++ b/gacela/game.scm
@@ -82,6 +82,7 @@ unused accumulator time."
 	       (iter (- lag tick-interval) (1+ ticks)))
 	      (else
 	       lag)))
+      (clear-events)
       (iter lag 0))
 
     (define (alpha lag)