s

2026-06-30 17:03:29 +02:00
parent 36668c1a9e
commit 4052de8e62
1 changed files with 4 additions and 3 deletions
@@ -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)
+                  (displayln (format "bn = ~a, nbn = ~a" bn nbn))
-                                            (build-path bn nbn) #f)
+                  ;(rename-file-or-directory (build-path bd bn)
-                  (set! path (build-path bd nbn))
+                  ;                          (build-path bn nbn) #f)
                  ;(set! path (build-path bd nbn))
                  ))
              (let* ((str-path (path->string path))