Gacela as Guile modules.

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index 92d1ca899eb3c384238c956bb731296ca6b37b02..fbd98b7f0e94db994ce8683cdfdd342f91dac147 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -98,9 +98,10 @@
 
   (set! quit-video
        (lambda ()
-         (SDL_FreeSurface screen)
-         (set! screen #f)
-         (SDL_Quit))))
+         (cond (screen
+                (SDL_FreeSurface screen)
+                (set! screen #f)
+                (SDL_Quit))))))
 
 (define (clear-screen)
   (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT)))