Callbacks etc.

2026-07-02 14:53:00 +02:00
parent e60ecaeaef
commit adb552c618
2 changed files with 5 additions and 2 deletions
@@ -479,7 +479,9 @@
                         (map (λ (e)
                                (set! nr (+ nr 1))
                                (list (format "row-~a" nr) (build-path current-music-path e) (format "path-~a" nr)))
-                              (directory-list current-music-path)))))
+                              (if (directory-exists? current-music-path)
+                                  (directory-list current-music-path)
+                                  '())))))
        (unless (path-equal? current-music-path music-library)
          (set! l (cons (list "lib-up" "↰" "lib-up") l))
          )