From: jsancho <devnull@localhost>
Date: Thu, 16 Jun 2011 06:00:53 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=cbfc77bb602ebda15d2d95786a2c2bb4b5970a63;p=gacela.git

---

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 6b9d699..c937178 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -63,11 +63,11 @@
 	   (let ((line (car look)))
 	     (receive (lines images) (process-look (cdr look))
 		      (cond ((string? line)
-			     (cons `(draw-texture ,line) lines)
-			     (cons line images))
+			     (values (cons `(draw-texture ,line) lines)
+				     (cons line images)))
 			    (else
-			     (cons line lines)))
-		      (values lines images))))))
+			     (values (cons line lines)
+				     images))))))))
 
   (receive (look-lines look-images) (process-look look)
 	   `(let ((attr ',attr))