From 3725601b209dee672d7bc63fcf0a33fb8af5a06a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 8 Jun 2021 21:50:38 -0700
Subject: tags: recognize deffi-struct.

* tags.tl (process-form): Recognize deffi-struct together with
defstruct.
---
 tags.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3