From 4b8b19c0b96094d69488f918beece0651f6c7d60 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 2 Nov 2021 10:28:37 +0100
Subject: get-playback-cue-number: Return #f if current cue doesn't exist

---
 guile/starlet/playback.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index a2d7c4a..10a5848 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -138,8 +138,11 @@
 
 
 (define (get-playback-cue-number pb)
-  (cue-index-to-number (get-playback-cue-list pb)
-                       (max 0 (- (get-next-cue-index pb) 1))))
+  (let ((cue-idx (get-next-cue-index pb)))
+    (if cue-idx
+      (cue-index-to-number (get-playback-cue-list pb)
+                           (max 0 (- cue-idx 1)))
+      #f)))
 
 (define (qnum a)
   (/ (inexact->exact (* a 1000)) 1000))
-- 
cgit v1.2.3