From: jsancho <devnull@localhost>
Date: Tue, 9 Aug 2011 19:16:34 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=66e81fe38e9a6b3c58c5613ec6a81c7306e29cb3;p=gacela.git

---

diff --git a/src/gacela.scm b/src/gacela.scm
index 4f1a4dd..aeea861 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -164,11 +164,6 @@
 
 ;;; GaCeLa Functions
 
-(define (init-gacela)
-  (init-sdl)
-  (init-gl))
-
-
 (define set-frames-per-second #f)
 (define init-frame-time #f)
 (define delay-frame #f)
diff --git a/src/gacela_draw.scm b/src/gacela_draw.scm
index b9a2c5a..8870529 100644
--- a/src/gacela_draw.scm
+++ b/src/gacela_draw.scm
@@ -27,7 +27,7 @@
 
 (define-macro (progn-textures . code)
   `(let ((result #f))
-     (init-gacela)
+     (init-video-mode)
      (glEnable GL_TEXTURE_2D)
      (set! result (begin ,@code))
      (glDisable GL_TEXTURE_2D)
@@ -60,7 +60,7 @@
 	(else (glVertex2f x y))))
 
 (define (load-image-for-texture filename)
-  (init-gacela)
+  (init-sdl)
   (let ((image (IMG_Load filename)))
     (cond (image
 	   (let* ((width (surface-w image)) (height (surface-h image))