tags: recognize deffi-struct.

* tags.tl (process-form): Recognize deffi-struct together with
defstruct.

1 files changed, 1 insertions, 1 deletions

diff --git a/tags.tl b/tags.tl
index 25926285..b047cce8 100755
--- a/tags.tl
+++ b/tags.tl
@@ -136,7 +136,7 @@
                  (cond
                    (long (add (ntag slot-tag long struct-name)))
                    (short (add (ntag slot-tag short struct-name))))))))
-          ((defstruct)
+          ((defstruct deffi-struct)
            (let ((struct-obj obj)
                  (struct-name (tree-case (cadr obj)
                                 ((atom . rest) atom)