From: jsancho <devnull@localhost>
Date: Mon, 22 Aug 2011 12:04:37 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=e1d58aa61dc8f521cc8a42b2f49208655603fc36;p=gacela.git

---

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 53b6615..aeb65d9 100755
--- 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