From 752e15c839bb44e267435fd0eee6c4423b861681 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 13 Feb 2022 18:44:00 +0100
Subject: Show only cue numbers (not indices) in playback

---
 guile/starlet/playback.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'guile')

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)
-- 
cgit v1.2.3