From b50916459d90f604043ea688750c55a516636796 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Wed, 29 Jun 2011 18:18:45 +0000
Subject: [PATCH]

---
 src/gacela_mobs.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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))
-- 
2.39.2