Updated. audio name cleaner added.
This commit is contained in:
2026-06-30 17:26:15 +02:00
2 changed files with 38 additions and 4 deletions
+3 -3
View File
@@ -46,10 +46,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))
))