From: jsancho <devnull@localhost>
Date: Tue, 21 Jun 2011 19:28:27 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=6795b90a83638ce59ac5da83a4bfc0630ee7e5cc;p=gacela.git

---

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