From b4b511e267013ff5d02c4fdfa0821eccb5759214 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 7 Apr 2020 07:25:13 -0700 Subject: tags: @(bind) should generate variable tags. * tags.tl (process-clause): Symbols from @(bind) should be recorded as variable tags, not function tags. --- tags.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tags.tl b/tags.tl index b33e2fcb..2f76ab0e 100755 --- a/tags.tl +++ b/tags.tl @@ -175,7 +175,7 @@ (add (ntag fun-tag (car args))))) (bind (let ((syms (flatcar (cadr elem)))) (each ((sym syms)) - (add (ntag fun-tag sym))))) + (add (ntag var-tag sym))))) (do (let ((forms [mapcar unexpand (cdr elem)])) (each ((form forms)) (pend (process-form path lines form)))))))))))) -- cgit v1.2.3