From 6795b90a83638ce59ac5da83a4bfc0630ee7e5cc Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Tue, 21 Jun 2011 19:28:27 +0000
Subject: [PATCH]

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

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index cbeb721..2f0a39e 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -72,8 +72,11 @@
 
   (receive (look-lines look-images) (process-look look)
 	   `(let ,(cons `(attr ',attr) look-images)
-	      (lambda (option)
+	      (lambda (option . param)
 		(case option
+		  ((#:get)
+		   (display (assoc-ref attr (car param)))
+		   (display param) (newline))
 		  ((#:render)
 		   (glPushMatrix)
 		   ,@look-lines
-- 
2.39.5