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
commit7b990d2d3b36da96223ef4f203e85f954fcc32e1 (patch)
treeab1dc9aa8d60729987b2673337fba3b7ef5b74de
parent2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995 (diff)
downloadtxr-7b990d2d3b36da96223ef4f203e85f954fcc32e1.tar.gz
txr-7b990d2d3b36da96223ef4f203e85f954fcc32e1.tar.bz2
txr-7b990d2d3b36da96223ef4f203e85f954fcc32e1.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)))