From 3678eef69a4c1fe5d39e526968e4b2e09eef93df Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 30 Jun 2026 17:23:01 +0200 Subject: [PATCH] filename cleaning --- private/file-walker.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/private/file-walker.rkt b/private/file-walker.rkt index 573e339..807c170 100644 --- a/private/file-walker.rkt +++ b/private/file-walker.rkt @@ -45,10 +45,10 @@ (unless (string=? bn nbn) (with-handlers ([exn? (λ (e) - (warn-am "Cannot rename dirty filename: ~a" nbn))]) - (info-am "Renaming ~a to ~a" bn nbn) + (warn-am "Cannot rename dirty filename: ~a, ~a" nbn e))]) + (info-am "Renaming ~a to ~a (basedir: ~a)" bn nbn bd) (rename-file-or-directory (build-path bd bn) - (build-path bn nbn) #f) + (build-path bd nbn) #f) (set! path (build-path bd nbn)) )) @@ -256,4 +256,4 @@ ((string=? stem3 "") "_") (reserved? (string-append "_" stem3)) (else stem3)))) - (string-append stem4 ext))) \ No newline at end of file + (string-append stem4 ext)))