(no commit message)

[gacela.git] / src / gacela_mobs.scm

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index b2280d063bc334b034a8f7cf0c0597e055f29c0e..5ae3296ab0287601d48b91062623f2e5aa3930b4 100755 (executable)
--- 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))