(no commit message)

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index dba48e6376ddc887bcad5f58732ec192cfd72904..9bea00ec2506d0487d83dc93734aac7f97ef4a68 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -251,7 +251,10 @@
                          (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
                          (to-origin)))
                   (cond ((mobs-changed?) (set! mobs (get-active-mobs))))
-                  (if (procedure? game-code) (game-code))
+                  (if (procedure? game-code)
+                      (catch #t
+                             (lambda () (game-code))
+                             (lambda (key . args) #f)))
                   (run-mob-actions mobs)
                   (cond ((video-mode-on?)
                          (render-mobs mobs)