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

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)