+ (process-events)
+ (cond ((quit-signal?)
+ (quit-gacela))
+ (else
+ (clear-screen)
+ (to-origin)
+; (refresh-active-mobs)
+; (run-mobs)
+; (run-extensions)
+ (if game-loop-procedure
+ (catch #t
+ (lambda () (set! game-elements (game-loop-procedure game-elements)))
+ (lambda (key . args) #f)))
+ (process-game-elements game-elements)
+ (flip-screen)
+ (delay-frame)
+ (loop game-elements)))))))