X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_SDL.c;h=f40c0ac3980058f04f463201545400736ae0b746;hb=e2ab9ffff05259980c1b333030fcb074d665acc1;hp=7376eb09e18cfe995efbe02ed927ae9e0dcef989;hpb=75902661d6ae670307771b90b4ddd38ec64ce853;p=gacela.git

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;
 }