(no commit message)

diff --git a/src/gacela.scm b/src/gacela.scm
index d99439488d28d7d34695de8c3b5e4bf4532864b5..f83e11737b920d59f2a64c670471edc8b4446a36 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -229,15 +229,15 @@
 ;          (eval-from-clients)
 ;          (process-events)
 ;          (cond ((not (quit?))
-           (cond ((not #f))
-;                (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+           (cond ((not #f)
+                  (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
 ;                (to-origin)
 ;                (refresh-active-objects)
-;                (if (functionp game-code) (funcall game-code))
+                  (if (procedure? game-code) (game-code))
 ;                (render-objects)
-                 (SDL_GL_SwapBuffers)
-                 (delay-frame))))
-       (set! running #f)))
+                  (SDL_GL_SwapBuffers)
+                  (delay-frame))))
+         (set! running #f)))
 
   (set! game-running?
        (lambda ()

diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index 7376eb09e18cfe995efbe02ed927ae9e0dcef989..f40c0ac3980058f04f463201545400736ae0b746 100644 (file)
--- a/src/gacela_SDL.c
+++ b/src/gacela_SDL.c
@@ -88,7 +88,7 @@ gacela_SDL_FreeSurface (SCM surface)
 SCM
 gacela_SDL_Delay (SCM ms)
 {
-  SDL_Delay (scm_to_int (ms));
+  SDL_Delay ((int)scm_to_double (ms));
   return SCM_UNSPECIFIED;
 }