-; (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)))
+ (process-events)
+ (cond ((not (quit?))
+ (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+ (to-origin)
+ (cond ((reload-mobs?)
+ (set! mobs-function (get-mobs-function))
+ (mobs-reloaded)))
+ (if (procedure? game-code) (game-code))
+ (mobs-function)
+ (SDL_GL_SwapBuffers)
+ (delay-frame))))
+ (set! running #f)))