From cbfc77bb602ebda15d2d95786a2c2bb4b5970a63 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Thu, 16 Jun 2011 06:00:53 +0000
Subject: [PATCH]

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

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