tags: bugfix: process progn correctly.

* tags.tl (process-form): Use mappend for the recursive
processing, not mapdo, and invoke pend on the result
to add it to the accumulated list.

1 files changed, 1 insertions, 1 deletions

diff --git a/tags.tl b/tags.tl
index 07c39898..b9a464b4 100755
--- a/tags.tl
+++ b/tags.tl
@@ -113,7 +113,7 @@
         (process-package-influencing-form obj)
         (caseq (car obj)
           ((progn eval-only compile-only with-dyn-lib)
-           [mapdo (op process-form path lines) (cdr obj)])
+           (pend [mappend (op process-form path lines) (cdr obj)]))
           ((defun defmacro define-place-macro deffi deffi-cb)
            (add (ntag fun-tag (cadr obj))))
           ((defvar defvarl defparm defparml defsymacro)