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

diff --git a/gacela/game.scm b/gacela/game.scm
index 48bf129..e8e635a 100644
--- a/gacela/game.scm
+++ b/gacela/game.scm
@@ -76,7 +76,7 @@ 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)))