(no commit message)

diff --git a/src/gacela.scm b/src/gacela.scm
index 4f1a4ddf54b3030a4cac38a73064009e6d3131b7..aeea861a222d133e94202fe1eca3efd1ea0401a9 100644 (file)
--- 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 b9a2c5a06967fb679132b5db4ee362be1a7d5f82..8870529138e109113afdf2d59e8842fcc5c7dd5b 100644 (file)
--- 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))