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

diff --git a/gacela/game.scm b/gacela/game.scm
index 48bf129..fe5f0b3 100644
--- a/gacela/game.scm
+++ b/gacela/game.scm
@@ -76,12 +76,13 @@ unused accumulator time."
 	       lag)
 	      ((>= lag tick-interval)
 	       (process-events)
-	       (if (and (quit?) (procedure? when-quit))
+	       (if (and (quit-event?) (procedure? when-quit))
 		   (when-quit))
 					;(agenda-tick!)
 	       (iter (- lag tick-interval) (1+ ticks)))
 	      (else
 	       lag)))
+      (clear-events)
       (iter lag 0))
 
     (define (alpha lag)