aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2021-11-02 10:28:37 +0100
committerThomas White <taw@physics.org>2021-11-02 10:28:46 +0100
commit4b8b19c0b96094d69488f918beece0651f6c7d60 (patch)
treed953814a128fe3161edd44bcac8b1089bd0a5694
parent7f0abc71456a41d3cd6dc05048b917bb16c4f855 (diff)
get-playback-cue-number: Return #f if current cue doesn't exist
-rw-r--r--guile/starlet/playback.scm7
1 files 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))