hans/audio-library-manager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

d

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-30 17:12:14 +02:00
parent ecef82531e
commit a56b2f03f5
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
private/file-walker.rkt
+4 -5
View File
@@ -46,11 +46,10 @@
(unless (string=? bn nbn) (unless (string=? bn nbn)
(with-handlers ([exn? (λ (e) (with-handlers ([exn? (λ (e)
(warn-am "Cannot rename dirty filename: ~a" nbn))]) (warn-am "Cannot rename dirty filename: ~a" nbn))])
(display "bn = ") (write bn) (display ", nbn = ") (write nbn) (info-am "Renaming ~a to ~a" bn nbn)
(newline) (rename-file-or-directory (build-path bd bn)
;(rename-file-or-directory (build-path bd bn) (build-path bn nbn) #f)
; (build-path bn nbn) #f) (set! path (build-path bd nbn))
;(set! path (build-path bd nbn))
)) ))
(let* ((str-path (path->string path)) (let* ((str-path (path->string path))