More keyboard events

[gacela.git] / gacela / game.scm

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