X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=9bea00ec2506d0487d83dc93734aac7f97ef4a68;hb=91e03880066280940b29a89eae28510e124e58cb;hp=dba48e6376ddc887bcad5f58732ec192cfd72904;hpb=5e8896b40426c515f4eb64e0f152c896ddd2d73d;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index dba48e6..9bea00e 100644
--- 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)