diff options
| -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) |