X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_SDL.c;h=b1a60e6d7d090fef93bcb8076da606b592f9508f;hb=6aea83358ce8a171baae97f709dca9f0e0a7f246;hp=964c0eda8876013c3c0719c8e9fa8c6aa3cb81e4;hpb=c2b3283df38412949ba1494cac299b235d1fe0ae;p=gacela.git

diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index 964c0ed..b1a60e6 100644
--- a/src/gacela_SDL.c
+++ b/src/gacela_SDL.c
@@ -1,9 +1,17 @@
 #include <libguile.h>
 #include <SDL/SDL.h>
+#include <GL/gl.h>
 #include "gacela_SDL.h"
 
-static void*
+SCM
+gacela_SDL_Init (SCM flags)
+{
+  return scm_make_integer (SDL_Init (scm_num2int (flags, "SDL_Init")));
+}
+
+void*
 SDL_register_functions (void* data)
 {
+  scm_c_define_gsubr ("SDL_Init", 1, 0, 0, &gacela_SDL_Init);
   return NULL;
 }