From 7fa85b851de908633c27b374e083d326c0c674b9 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 15 Jan 2022 11:38:10 +0100
Subject: cut!: Handle end of cue list

---
 guile/starlet/playback.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'guile/starlet')

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index bd8dd74..88b9f7d 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -268,7 +268,12 @@
 
 
 (define (cut! pb)
-  (cut-to-cue-index! pb (get-next-cue-index pb)))
+  (let ((nci (get-next-cue-index pb)))
+    (if nci
+      (if (< nci (vector-length (get-playback-cue-list pb)))
+        (cut-to-cue-index! pb (get-next-cue-index pb))
+        'no-more-cues-in-list)
+      'next-cue-unspecified)))
 
 
 (define (stop! pb)
-- 
cgit v1.2.3