diff options
author | Thomas White <taw@physics.org> | 2021-11-02 10:28:37 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-11-02 10:28:46 +0100 |
commit | 4b8b19c0b96094d69488f918beece0651f6c7d60 (patch) | |
tree | d953814a128fe3161edd44bcac8b1089bd0a5694 | |
parent | 7f0abc71456a41d3cd6dc05048b917bb16c4f855 (diff) |
get-playback-cue-number: Return #f if current cue doesn't exist
-rw-r--r-- | guile/starlet/playback.scm | 7 |
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)) |