X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo.scm;h=92d1ca899eb3c384238c956bb731296ca6b37b02;hb=f222261d0c3d6670b2069f66311c9113133deb7c;hp=d12e5ecd532f8df768e9111cc329c6a108a0929c;hpb=437150d98d8bb5c833cba657f296152762586436;p=gacela.git

diff --git a/src/video.scm b/src/video.scm
index d12e5ec..92d1ca8 100644
--- a/src/video.scm
+++ b/src/video.scm
@@ -37,8 +37,6 @@
 	    with-color
 	    progn-textures
 	    draw
-	    load-image
-	    resize-surface
 	    load-texture
 	    draw-texture
 	    draw-line
@@ -78,8 +76,7 @@
 		   (set! screen (SDL_SetVideoMode width height bpp flags))
 		   (SDL_WM_SetCaption title "")
 		   (init-gl)
-		   (if (eq? mode '3d) (set-3d-mode) (set-2d-mode))))
-		(else #t))))
+		   (if (eq? mode '3d) (set-3d-mode) (set-2d-mode)))))))
 
   (set! get-screen-height
 	(lambda ()
@@ -222,7 +219,6 @@
 	   (SDL_DisplayFormatAlpha image)))))
   
 (define (load-image-for-texture filename)
-  (init-sdl)
   (let ((image (load-image filename)))
     (cond (image
 	   (let* ((width (surface-w image)) (height (surface-h image))