(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 53b661554c4a151440ee8b6f7cb7511d80ca97be..aeb65d96c5c6b9ccf63b1f4171b8089c4e4b0522 100755 (executable)
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -162,9 +162,9 @@
 (define-macro (define-mob mob-def)
   (let ((name (car mob-def)) (def (cdr mob-def)))
     `(define ,name
-       (lambda-mob ,def))))
+       (lambda-mob ,@def))))
 
-(defmacro* lambda-mob (#:key (attr '()) (logic #f) (look #f))
+(defmacro* lambda-mob (#:key (attr '(quote ())) (logic #f) (look #f))
   `(let ((attr ,attr) (logic ,logic) (look ,look))
      (lambda (option . params)
        (case option