tags: wrong flattening function in @(bind) handling.

* tags.tl (process-clause): Bugfix: flatcar must be used, not
flatten, because the bindings can contain dotted notation.

1 files changed, 1 insertions, 1 deletions

diff --git a/tags.tl b/tags.tl
index 68a8527c..94c52740 100755
--- a/tags.tl
+++ b/tags.tl
@@ -140,7 +140,7 @@
                                     (cadddr elem)
                                     (cadr elem))))
                         (add (ntag fun-tag (car args)))))
-              (bind (let ((syms (flatten (cadr elem))))
+              (bind (let ((syms (flatcar (cadr elem))))
                       (each ((sym syms))
                         (add (ntag fun-tag sym)))))
               (do (let ((forms [mapcar unexpand (cdr elem)]))