txrtags: maintain due to new defstruct syntax.

* txrtags.tl (process-form): Handle :postfini
in the same way as :fini. In fallback case,
reject clauses headed by a keyword symbol.

1 files changed, 3 insertions, 2 deletions

diff --git a/txrtags.tl b/txrtags.tl
index 042aa993..8e13f120 100755
--- a/txrtags.tl
+++ b/txrtags.tl
@@ -191,10 +191,11 @@
                     (t :)))
                  ((word (arg) . body)
                   (caseq word
-                    ((:init :postinit :fini))
+                    ((:init :postinit :fini :postfini))
                     (t :)))
                  ((name . rest)
-                  (add (ntag slot-tag name struct-name)))
+                  (unless (keywordp name)
+                    (add (ntag slot-tag name struct-name))))
                  (name
                    (add (ntag slot-tag name struct-name struct-obj))))))))))))