Fix: looping playback

1 files changed, 8 insertions, 5 deletions

diff --git a/playlist.lisp b/playlist.lisp
index b5c2c87..abb8e3d 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -135,11 +135,14 @@
 (defun advance-now-playing (e)
   (when-let ((ctl
               (cur-playlist-ctl e)))
-    (stop-playback ctl)
-    (when-let (next (find-next-track ctl (now-playing-track ctl)))
-      (setf (now-playing-track ctl) next)
-      (load-now-playing-display ctl next)
-      (start-playback ctl))))
+
+    (if-let (next (find-next-track ctl (now-playing-track ctl)))
+      (progn 
+        (stop-playback ctl)
+        (setf (now-playing-track ctl) next)
+        (load-now-playing-display ctl next)
+        (start-playback ctl))
+      (stop-playback ctl))))
 
 (defun previous-now-playing (e)
   (when-let* ((ctl