diff options
author | Thomas White <taw@physics.org> | 2022-02-21 18:09:48 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-02-21 18:09:48 +0100 |
commit | 9c6850bc4fd13ebd337bc567f7b33cb981f432bb (patch) | |
tree | 430ed3426b4ac3b4f153300833cb4590c605b32a | |
parent | a0dc6d0c58b78b280d86b391a5f5f3e880bd7401 (diff) |
Fix (write <starlet-playback> _) on last cue
-rw-r--r-- | guile/starlet/playback.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 40f5f94..f9ed25d 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -291,13 +291,23 @@ (set-running-cue! pb #f)))) +(define (next-cue-number pb) + (let ((next-cue-index (get-next-cue-index pb)) + (the-cue-list (get-playback-cue-list pb))) + (if (< next-cue-index (vector-length the-cue-list)) + (exact->inexact + (cue-index-to-number + the-cue-list + next-cue-index)) + 'no-more-cues-in-list))) + + (define-method (write (pb <starlet-playback>) port) (format port "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>" (atomic-box-ref (state-box pb)) (exact->inexact (get-playback-cue-number pb)) - (exact->inexact (cue-index-to-number (get-playback-cue-list pb) - (get-next-cue-index pb))))) + (next-cue-number pb))) (define (reassert-current-cue! pb) |