From 6aea83358ce8a171baae97f709dca9f0e0a7f246 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Sun, 1 May 2011 02:39:25 +0000
Subject: [PATCH]

---
 src/Makefile.am  | 2 +-
 src/gacela.c     | 1 -
 src/gacela_SDL.c | 8 ++++++++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/Makefile.am b/src/Makefile.am
index 1666eb0..8cda700 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -1,4 +1,4 @@
 bin_PROGRAMS = gacela
 gacela_SOURCES = gacela.c gacela_SDL.c
-gacela_LDADD = -lguile -lltdl  -lgmp -lcrypt -lm -lltdl
+gacela_LDADD = -lSDL -lGL   -lguile -lltdl  -lgmp -lcrypt -lm -lltdl
 
diff --git a/src/gacela.c b/src/gacela.c
index 45c83a1..4517f48 100644
--- a/src/gacela.c
+++ b/src/gacela.c
@@ -1,4 +1,3 @@
-#include <GL/gl.h>
 #include <libguile.h>
 #include "gacela_SDL.h"
 
diff --git a/src/gacela_SDL.c b/src/gacela_SDL.c
index 4c1b4f4..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"
 
+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;
 }
-- 
2.39.2