(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index cbeb721137abc0bf76dfaa966a08df4f7458e913..2f0a39e1ef61f8ef7180ad264b699576826644f5 100755 (executable)
--- 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