path-equal? built

2026-04-28 23:39:05 +02:00
parent 042047a355
commit a2875f61b6
2 changed files with 21 additions and 1 deletions
@@ -426,7 +426,7 @@
                                (set! nr (+ nr 1))
                                (list (format "row-~a" nr) (build-path current-music-path e) (format "path-~a" nr)))
                              (directory-list current-music-path)))))
-        (unless (equal? (format "~a" current-music-path) (format "~a" music-library))
+        (unless (path-equal? current-music-path music-library)
          (set! l (cons (list "lib-up" "↰" "lib-up") l))
          )
        (let ((html (mktable l 'music-library library-formatter)))