From 5891f1adae6d1031d546fedbc0e7920cdfc0e58b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 8 Jun 2021 21:39:50 -0700
Subject: tags: handle literals for undefined structures.

* tags.tl: bind *read-unknown-structs* to t around
the file walk.
---
 tags.tl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tags.tl b/tags.tl
index 32008e80..25926285 100755
--- a/tags.tl
+++ b/tags.tl
@@ -260,6 +260,7 @@
     (let* ((have-arv (boundp 'ftw-actionretval))
            (excf [apply orf (mapcar (do op fnmatch @@1 @1) o.exclude)])
            (skips ())
+           (*read-unknown-structs* t)
            (tags (build
                    (ftw o.out-args
                         (lambda (path type stat . rest)
-- 
cgit v1.2.3