-

player.rkt

@@ -221,7 +221,7 @@
       (set! track i)
       (set! ct-data (send pl track i))
       (set-state! 'play)
-      (displayln "Set state to 'play")
+      (displayln (format "Set state to 'play, updating to track ~a" track))
       (track-nr-updater track)
       (displayln "track-nr-updater called")
       )
@@ -287,7 +287,9 @@
   
     (define/public (play playlist)
       (stop-and-clear)
+      ;(unless (eq? pl #f) (send pl display-tracks))
       (set! pl playlist)
+      ;(unless (eq? pl #f) (send pl display-tracks))
       (send this play-track 0)
       )