From 973cbe7cc6f265ab42e63456eb625c61aee4108f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 5 Apr 2020 12:24:10 -0700
Subject: 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.
---
 tags.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3