X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_mobs.scm;h=cbeb721137abc0bf76dfaa966a08df4f7458e913;hb=141a622804c650ab7e2b61ecc3af87c4be6495c5;hp=c9371784fef713383a137617b1297a596f1395ed;hpb=cbfc77bb602ebda15d2d95786a2c2bb4b5970a63;p=gacela.git

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index c937178..cbeb721 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -63,18 +63,18 @@
 	   (let ((line (car look)))
 	     (receive (lines images) (process-look (cdr look))
 		      (cond ((string? line)
-			     (values (cons `(draw-texture ,line) lines)
-				     (cons line images)))
+			     (let ((var (gensym)))
+			       (values (cons `(draw-texture ,var) lines)
+				       (cons `(,var (load-texture ,line)) images))))
 			    (else
 			     (values (cons line lines)
 				     images))))))))
 
   (receive (look-lines look-images) (process-look look)
-	   `(let ((attr ',attr))
+	   `(let ,(cons `(attr ',attr) look-images)
 	      (lambda (option)
 		(case option
 		  ((#:render)
 		   (glPushMatrix)
 		   ,@look-lines
-;	    ,@(map (lambda (x) (if (string? x) `(draw-texture ,x) x)) look)
 		   (glPopMatrix)))))))