Tobias Geerinckx-Rice <m...@tobias.gr> skribis: > 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.
Sounds good! Thanks, Ludo’.
