From: jsancho <devnull@localhost>
Date: Fri, 2 Dec 2011 18:36:04 +0000 (+0000)
Subject: Gacela as Guile module.
X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=commitdiff_plain;h=ae4b4cac6a6ba4b3d0d4547451288ab7599f1589

Gacela as Guile module.
---

diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index ba567b5..f950002 100644
--- a/src/gacela_SDL.c
+++ b/src/gacela_SDL.c
@@ -91,7 +91,7 @@ get_surface_pixels (SCM surface_smob)
 {
   SDL_Surface *surface = get_surface_address (surface_smob);
 
-  return scm_from_int (surface->pixels);
+  return scm_from_int ((int)surface->pixels);
 }
 
 SCM
@@ -202,7 +202,7 @@ gacela_SDL_DisplayFormat (SCM surface)
   SDL_Surface *new = SDL_DisplayFormat (get_surface_address (surface));
 
   if (new) {
-    return make_surface (scm_from_locale_string (get_surface_filename (surface)), new);
+    return make_surface (get_surface_filename (surface), new);
   }
   else {
     return SCM_BOOL_F;
@@ -215,7 +215,7 @@ gacela_SDL_DisplayFormatAlpha (SCM surface)
   SDL_Surface *new = SDL_DisplayFormatAlpha (get_surface_address (surface));
 
   if (new) {
-    return make_surface (scm_from_locale_string (get_surface_filename (surface)), new);
+    return make_surface (get_surface_filename (surface), new);
   }
   else {
     return SCM_BOOL_F;
@@ -418,8 +418,8 @@ gacela_Mix_CloseAudio (void)
 }
 
 
-void*
-SDL_register_functions (void* data)
+void
+init_guile_SDL ()
 {
   surface_tag = scm_make_smob_type ("surface", sizeof (struct surface));
   scm_set_smob_mark (surface_tag, mark_surface);
@@ -528,6 +528,4 @@ SDL_register_functions (void* data)
   scm_c_define_gsubr ("Mix_FreeMusic", 1, 0, 0, gacela_Mix_FreeMusic);
   scm_c_define_gsubr ("Mix_FreeChunk", 1, 0, 0, gacela_Mix_FreeChunk);
   scm_c_define_gsubr ("Mix_CloseAudio", 0, 0, 0, gacela_Mix_CloseAudio);
-
-  return NULL;
 }