X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_mobs.scm;h=5ae3296ab0287601d48b91062623f2e5aa3930b4;hb=b50916459d90f604043ea688750c55a516636796;hp=b2280d063bc334b034a8f7cf0c0597e055f29c0e;hpb=fd3682a33d408d153c08a569b62ae8f756eba11f;p=gacela.git

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index b2280d0..5ae3296 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -127,10 +127,12 @@
 		 ((get-renders)
 		  renders)
 		 ((set-renders)
-		  (if (not (null? params)) (set! renders (car params))))))))
+		  (if (not (null? params)) (set! renders (car params))))
+		 ((render)
+		  (for-each (lambda (render) ((cdr render) attr)) renders))))))
      (cond ((not (null? ',look))
 	    (mob 'set-renders
 		 (list (cons
 			'default-look
-			(lambda-look () ,@look))))))
+			(lambda-look ,attr ,@look))))))
      mob))