Tobias Geerinckx-Rice <m...@tobias.gr> skribis: > On 12/09/16 15:42, Ludovic Courtès wrote: >>> + (snippet '(for-each delete-file-recursively >>> + (find-files "internal" "tinyxml2"))))) >> >> Note that the 2nd argument to ‘find-files’ is a regexp. Is this really >> intended? > > It is. The directory to be deleted is actually named "tinyxml2-3.0.0" > (or so), with future version bumps too easy to miss.
OK, makes sense. 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)) ? Ludo’.