diff options
| author | Thomas White <taw@physics.org> | 2022-02-13 18:44:00 +0100 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-02-13 19:04:25 +0100 |
| commit | 752e15c839bb44e267435fd0eee6c4423b861681 (patch) | |
| tree | c9667c651707463cdc1fae2d0040585bcf0192e2 /guile | |
| parent | d4d0431f0775262264f43ecb0d8450d9b2af6384 (diff) | |
Show only cue numbers (not indices) in playback
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/playback.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 57c5783..40f5f94 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -293,11 +293,11 @@ (define-method (write (pb <starlet-playback>) port) (format port - "#<<starlet-playback> state: ~a current-cue-number: ~a next-cue-index: ~a of ~a>" + "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>" (atomic-box-ref (state-box pb)) (exact->inexact (get-playback-cue-number pb)) - (get-next-cue-index pb) - (vector-length (get-playback-cue-list pb)))) + (exact->inexact (cue-index-to-number (get-playback-cue-list pb) + (get-next-cue-index pb))))) (define (reassert-current-cue! pb) |