(no commit message)

[gacela.git] / src / gacela_SDL.c

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