enhancements for the rktplayer

2026-04-28 22:20:36 +02:00
parent f2ae0821d3
commit 042047a355
4 changed files with 20 additions and 13 deletions
@@ -266,16 +266,18 @@
      )

    (define/public (play-track i)
-      (dbg-rktplayer "play-track ~a" i)
-      (set! state 'stopped)
-      (close-player*)
-      (dbg-rktplayer "Player closed")
-      (set! track i)
-      (set! ct-data (send pl track i))
-      (set-state! 'play)
-      (dbg-rktplayer "Set state to 'play, updating to track ~a" track)
-      (track-nr-updater track)
-      (dbg-rktplayer "track-nr-updater called")
+      (unless (= (send pl length) 0)
+        (dbg-rktplayer "play-track ~a" i)
+        (set! state 'stopped)
+        (close-player*)
+        (dbg-rktplayer "Player closed")
+        (set! track i)
+        (set! ct-data (send pl track i))
+        (set-state! 'play)
+        (dbg-rktplayer "Set state to 'play, updating to track ~a" track)
+        (track-nr-updater track)
+        (dbg-rktplayer "track-nr-updater called")
+        )
      )

    (define/public (stop)