d

2026-06-30 17:05:51 +02:00
parent 4052de8e62
commit cea8c44352
1 changed files with 2 additions and 1 deletions
@@ -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))