Store all events when lag is produced

[gacela.git] / gacela / game.scm

diff --git a/gacela/game.scm b/gacela/game.scm
index e8e635a51b0ad632dc3662a124702e14f0b979ce..fe5f0b3a1cfdc993d413ee9371f29c02b04a7fc0 100644 (file)
--- 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)