- (check-connections)
- (eval-from-clients)
- (process-events)
- (cond ((not (quit?))
- (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
- (to-origin)
- (refresh-active-objects)
- (if (functionp game-code) (funcall game-code))
- (render-objects)
- (SDL_GL_SwapBuffers)
- (delay-frame))))
- (set! running #f)))
+; (check-connections)
+; (eval-from-clients)
+; (process-events)
+; (cond ((not (quit?))
+ (cond ((not #f))
+; (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+; (to-origin)
+; (refresh-active-objects)
+; (if (functionp game-code) (funcall game-code))
+; (render-objects)
+ (SDL_GL_SwapBuffers)
+ (delay-frame))))
+ (set! running #f)))