refactoring volgens skill

2026-08-29 22:25:06 +02:00
parent 09121df0d7
commit b3a5a0b345
20 changed files with 1043 additions and 998 deletions
@@ -139,12 +139,12 @@
       (file-exists? file)
       (audio-file? file)
       (let ((full-file
-              (with-handlers ((exn:fail? (lambda (_) #f)))
+              (with-handlers ((exn:fail? (λ (_) #f)))
                (simplify-path (path->complete-path file) #t))))
         (and full-file
              (for/or ((library (in-list libraries)))
                (define root
-                  (with-handlers ((exn:fail? (lambda (_) #f)))
+                  (with-handlers ((exn:fail? (λ (_) #f)))
                    (simplify-path
                     (path->complete-path (music-library-root library))
                     #t)))
@@ -185,7 +185,7 @@
              (list name
                    (normal-case-path
                     (path->complete-path path)))))
-          (lambda (first second)
+          (λ (first second)
            (equal? (cadr first) (cadr second))))))
    (for/list ((named-root (in-list roots))
               (index (in-naturals)))