tags: @(bind) should generate variable tags.

* tags.tl (process-clause): Symbols from @(bind) should be
recorded as variable tags, not function tags.

1 files changed, 1 insertions, 1 deletions

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))))))))))))