Ludo', On 13/09/16 14:11, Ludovic Courtès wrote: > However, ‘find-files’ does not include directories in its result, > unless you explicitly ask for it. So probably it should be: > > (for-each delete-file-recursively (find-files "internal" "^tinyxml2" > #:directories? #t))
Indeed, thanks. I'll push with the more specific
(snippet '(for-each delete-file-recursively
(find-files "internal" "^tinyxml2-[0-9]"
#:directories? #t)))))
unless anyone raises any objections. Otherwise, find-files returns some
matching subdirectories as well (‘^tinyxml2-.*/.*/tinyxml2-.*’) which
delete-file-recursively still tries to delete after the parent is gone.
Kind regards,
T G-R
signature.asc
Description: OpenPGP digital signature
