refactoring volgens skill

private/player.rkt

@@ -278,7 +278,7 @@
   (hash-ref!
    (player-playlist-contexts value)
    normalized
-   (lambda () (new-playlist-context value normalized))))
+   (λ () (new-playlist-context value normalized))))
 
 (define (context-tracks context)
   (playlist-tab-tracks
@@ -324,7 +324,7 @@
     (define context (playlist-context-for! value normalized))
     (with-state-lock
      value
-     (lambda ()
+     (λ ()
        (set-player-tabs! value (playlist-context-tabs context))
        (set-player-current-tab-index!
         value
@@ -1649,7 +1649,7 @@
   (define item
     (call-with-semaphore
      (player-command-lock value)
-     (lambda ()
+     (λ ()
        (define context
          (playlist-context-for!
           value
@@ -1659,7 +1659,7 @@
           (player-tracks value)
           (append-map playlist-tab-tracks
                       (playlist-context-tabs context))))
-       (findf (lambda (candidate)
+       (findf (λ (candidate)
                 (string=? (track-cache-key candidate) artwork-id))
               candidates))))
   (and item (track-artwork item)))