From e1d58aa61dc8f521cc8a42b2f49208655603fc36 Mon Sep 17 00:00:00 2001 From: jsancho Date: Mon, 22 Aug 2011 12:04:37 +0000 Subject: [PATCH] --- src/gacela_mobs.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2