deftag: return the keyword.HEADtl-who-master

* README.md: Document that deftag returns the keyword symbol
that is being defined as the tag.

* who.tl (deftag): Return the keyword parameter instead of
the generated lambda.

1 files changed, 9 insertions, 7 deletions

diff --git a/who.tl b/who.tl
index 12ce78d..794645c 100644
--- a/who.tl
+++ b/who.tl
@@ -341,10 +341,12 @@
         (key-params (if (consp attr-param-list)
                       (butlast attr-param-list 0))))
     (with-gensyms (body-arg)
-      ^(set [*tag-macro* ,keyword]
-          (lambda (:key ,body-arg -- ,*attr-param-list)
-            (mac-env-param-bind *cur-form* *cur-env* ,body-pattern ,body-arg
-            ,*(if (and rest-param key-params)
-                ^((set ,rest-param
-                       (scrub-kw-args ',key-params ,rest-param))))
-            ,*body))))))
+      ^(progn
+         (set [*tag-macro* ,keyword]
+              (lambda (:key ,body-arg -- ,*attr-param-list)
+                (mac-env-param-bind *cur-form* *cur-env* ,body-pattern ,body-arg
+                  ,*(if (and rest-param key-params)
+                      ^((set ,rest-param
+                             (scrub-kw-args ',key-params ,rest-param))))
+                  ,*body)))
+         ,keyword))))