(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 6b9d6997f42e402576435c6aaaf5f494d6639aa6..c9371784fef713383a137617b1297a596f1395ed 100755 (executable)
--- 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))