From a56b2f03f50f90e8dcd03e47db7e7202673de3f1 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 30 Jun 2026 17:12:14 +0200 Subject: [PATCH] d --- private/file-walker.rkt | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/private/file-walker.rkt b/private/file-walker.rkt index a06184f..573e339 100644 --- a/private/file-walker.rkt +++ b/private/file-walker.rkt @@ -46,11 +46,10 @@ (unless (string=? bn nbn) (with-handlers ([exn? (λ (e) (warn-am "Cannot rename dirty filename: ~a" 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)) + (info-am "Renaming ~a to ~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))