X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=202c0c8b011bd4a1ab88ff10bbb23a15dad3a1fe;hb=85190d9f178de47361cb8bc77aaf3197632b1337;hp=f8dcaf45e75647534045ad9946a4d52f9a62cccc;hpb=81c0541834f1d9dbf4fa0616cda482387d52fd0b;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index f8dcaf4..202c0c8 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -251,10 +251,10 @@
 (define game-running? #f)
 (define set-game-code #f)
 
-(let ((running #f) (game-code #f) (mobs '()))
+(let ((running #f) (game-code #f))
   (set! game-loop
 	(lambda ()
-	  (set! mobs (get-active-mobs))
+	  (refresh-active-mobs)
 	  (set! running #t)
 	  (quit! #f)
 	  (do () ((quit?))
@@ -266,13 +266,13 @@
 		   (cond ((video-mode-on?)
 			  (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
 			  (to-origin)))
-		   (cond ((mobs-changed?) (set! mobs (get-active-mobs))))
+		   (refresh-active-mobs)
 		   (if (procedure? game-code)
 		       (catch #t
 			      (lambda () (game-code))
 			      (lambda (key . args) #f)))
 		   (cond ((video-mode-on?)
-			  (run-mobs mobs)
+			  (run-mobs)
 			  (SDL_GL_SwapBuffers)))
 		   (delay-frame))))
 	  (set! running #f)))