diff --git a/private/file-walker.rkt b/private/file-walker.rkt index 1fc68de..93c7e3e 100644 --- a/private/file-walker.rkt +++ b/private/file-walker.rkt @@ -46,9 +46,10 @@ (unless (string=? bn nbn) (with-handlers ([exn? (λ (e) (warn-am "Cannot rename dirty filename: ~a" nbn))]) - (rename-file-or-directory (build-path bd bn) - (build-path bn nbn) #f) - (set! path (build-path bd nbn)) + (displayln (format "bn = ~a, nbn = ~a" bn nbn)) + ;(rename-file-or-directory (build-path bd bn) + ; (build-path bn nbn) #f) + ;(set! path (build-path bd nbn)) )) (let* ((str-path (path->string path))