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 | 10671a0b81b444162b4f9225a2ff5326cffef4a4 (patch) | |
tree | ab1dc9aa8d60729987b2673337fba3b7ef5b74de | |
parent | d421b89887d226e029ec4bd59586b3f991e2fa4b (diff) | |
download | txr-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-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))) |