From: jsancho <devnull@localhost>
Date: Wed, 29 Jun 2011 18:18:45 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;ds=inline;h=b50916459d90f604043ea688750c55a516636796;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))