]> git.jsancho.org Git - gacela.git/blobdiff - src/sdl.c
Using utf8.
[gacela.git] / src / sdl.c
index 8b9791a18ea8babc48620bfe2b924d39b5119ed3..0f96fb80cc045360ee459ec233e2338882d25dcf 100644 (file)
--- a/src/sdl.c
+++ b/src/sdl.c
@@ -21,7 +21,6 @@
 #include <SDL/SDL_image.h>
 #include <SDL/SDL_mixer.h>
 #include <SDL/SDL_rotozoom.h>
-#include "gacela_SDL.h"
 
 struct surface
 {
@@ -275,8 +274,8 @@ gacela_SDL_GetVideoInfo (void)
   info = SDL_GetVideoInfo ();
   vi = scm_list_n (SCM_UNDEFINED);
 
-  vi = scm_cons (scm_cons (scm_from_locale_symbol ("blit_hw"), scm_from_int (info->blit_hw)), vi);
-  vi = scm_cons (scm_cons (scm_from_locale_symbol ("hw_available"), scm_from_int (info->hw_available)), vi);
+  vi = scm_cons (scm_cons (scm_from_utf8_symbol ("blit_hw"), scm_from_int (info->blit_hw)), vi);
+  vi = scm_cons (scm_cons (scm_from_utf8_symbol ("hw_available"), scm_from_int (info->hw_available)), vi);
 
   return vi;
 }
@@ -531,7 +530,7 @@ init_gacela_sdl (void *data)
 }
 
 void
-gacela_sdl_init ()
+scm_init_gacela_sdl ()
 {
-  scm_c_define_module ("gacela sdl", init_gacela_sdl, NULL);
+  init_gacela_sdl (NULL);
 }