(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index c0037f1053a5ab5416848c671623d07f2fdcd31c..de527bdf7f3a93ad28f718d5550a58fa901fa90c 100755 (executable)
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -19,6 +19,19 @@
 
 ;;; Actions for mobs
 
+(define-macro (define-action 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