From 10671a0b81b444162b4f9225a2ff5326cffef4a4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 14 Mar 2020 19:27:37 -0700
Subject: tags: fix reversed test for ftw-actionretval.

* tags.tl (toplevel): We need to push directories into the
skiplist when we don't have FTW_ACTIONRETVAL, indicated by
ftw-actionretval being zero. If ftw-actionretval is nonzero,
so is ftw-skip-subtree, which completely takes care of the
skipping of subdirectories.
---
 tags.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tags.tl b/tags.tl
index ec7643b5..808a9722 100755
--- a/tags.tl
+++ b/tags.tl
@@ -186,7 +186,7 @@
                                      (pop skips))
                                    (cond
                                      ((or [excf path] [excf (base-name path)])
-                                      (static-when (plusp ftw-actionretval)
+                                      (static-when (zerop ftw-actionretval)
                                         (push `@path/` skips))
                                       ftw-skip-subtree)))
                             (t ftw-continue)))
-- 
cgit v1.2.3