-; (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 ((mobs-changed?) (set! mobs (get-active-mobs))))
+ (if (procedure? game-code) (game-code))
+ (process-mobs mobs)
+ (SDL_GL_SwapBuffers)
+ (delay-frame))))
+ (set! running #f)))