d

2026-06-30 17:12:14 +02:00
parent ecef82531e
commit a56b2f03f5
1 changed files with 4 additions and 5 deletions
@@ -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))