diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2020-03-14 19:27:37 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2020-03-14 19:27:37 -0700 |
commit | 7b990d2d3b36da96223ef4f203e85f954fcc32e1 (patch) | |
tree | ab1dc9aa8d60729987b2673337fba3b7ef5b74de | |
parent | 2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995 (diff) | |
download | txr-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-x | tags.tl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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))) |