diff options
author | Thomas White <taw@physics.org> | 2022-01-15 11:38:10 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-01-25 20:15:12 +0100 |
commit | 7fa85b851de908633c27b374e083d326c0c674b9 (patch) | |
tree | 5d77d62d70e3287bb73c0f5cce4d359156675336 /guile/starlet/playback.scm | |
parent | 0171a2975024ea7155b02951943754688488ecee (diff) |
cut!: Handle end of cue list
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r-- | guile/starlet/playback.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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) |