diff --git a/private/file-walker.rkt b/private/file-walker.rkt index 93c7e3e..2c6a566 100644 --- a/private/file-walker.rkt +++ b/private/file-walker.rkt @@ -46,7 +46,8 @@ (unless (string=? bn nbn) (with-handlers ([exn? (λ (e) (warn-am "Cannot rename dirty filename: ~a" nbn))]) - (displayln (format "bn = ~a, nbn = ~a" bn nbn)) + (display "bn = ") (write bn) (display ", nbn = ") (write nbn) + (newline) ;(rename-file-or-directory (build-path bd bn) ; (build-path bn nbn) #f) ;(set! path (build-path bd nbn))