From: jsancho <devnull@localhost>
Date: Sat, 21 May 2011 07:24:04 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=e2ab9ffff05259980c1b333030fcb074d665acc1;p=gacela.git

---

diff --git a/src/gacela.scm b/src/gacela.scm
index d994394..f83e117 100644
--- 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 7376eb0..f40c0ac 100644
--- 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;
 }