summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2020-03-14 19:27:37 -0700
committerKaz Kylheku <kaz@kylheku.com>2020-03-14 19:27:37 -0700
commit10671a0b81b444162b4f9225a2ff5326cffef4a4 (patch)
treeab1dc9aa8d60729987b2673337fba3b7ef5b74de
parentd421b89887d226e029ec4bd59586b3f991e2fa4b (diff)
downloadtxr-10671a0b81b444162b4f9225a2ff5326cffef4a4.tar.gz
txr-10671a0b81b444162b4f9225a2ff5326cffef4a4.tar.bz2
txr-10671a0b81b444162b4f9225a2ff5326cffef4a4.zip
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.
-rwxr-xr-xtags.tl2
1 files changed, 1 insertions, 1 deletions
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)))