(no commit message)

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index d99439488d28d7d34695de8c3b5e4bf4532864b5..f83e11737b920d59f2a64c670471edc8b4446a36 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -229,15 +229,15 @@
 ;          (eval-from-clients)
 ;          (process-events)
 ;          (cond ((not (quit?))
-           (cond ((not #f))
-;                (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+           (cond ((not #f)
+                  (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
 ;                (to-origin)
 ;                (refresh-active-objects)
-;                (if (functionp game-code) (funcall game-code))
+                  (if (procedure? game-code) (game-code))
 ;                (render-objects)
-                 (SDL_GL_SwapBuffers)
-                 (delay-frame))))
-       (set! running #f)))
+                  (SDL_GL_SwapBuffers)
+                  (delay-frame))))
+         (set! running #f)))
 
   (set! game-running?
        (lambda ()