diff options
Diffstat (limited to 'guile/starlet/playback.scm')
| -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)) |