From 4052de8e62e868e6aa8bede3881ea64aceca7165 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 30 Jun 2026 17:03:29 +0200 Subject: [PATCH] s --- private/file-walker.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))