(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index de527bdf7f3a93ad28f718d5550a58fa901fa90c..c442bf5f5624ca44232ffe7d378610a9349b3eeb 100755 (executable)
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -19,19 +19,17 @@
 
 ;;; Actions for mobs
 
-(define-macro (define-action name attr . code)
+(define-macro (define-action action-def . code)
+  `(define (,name mob-attr)
+     ,@code))
+
+(define-macro (define-action2 name attr . code)
   `(define (,name mob-attr)
      (let ,attr
        ,@code
        ,(cons 'begin (map #'attribute-save (reverse attr)))
        mob-attr)))
 
-(defun attribute-save (attribute)
-  (let* ((name (cond ((listp attribute) (car attribute))
-                    (t attribute)))
-        (pname (attribute-name name)))
-    `(setf (getf object-attr ,pname) ,name)))
-
 
 
 ;;; Mob Factory