From c0205cee7d3f7caafc84661948d3c5b2cc854751 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 18 Jun 2022 12:17:05 +0200
Subject: Playback: avoid more trouble if current cue doesn't exist

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

(limited to 'guile')

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 1628d99..28ad18e 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -376,12 +376,20 @@
 
 
 (define-method (write (pb <starlet-playback>) port)
-  (format port
-          "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>"
-          (playback-state pb)
-          (exact->inexact (get-playback-cue-number pb))
-          (next-cue-number pb)))
+  (let ((cur-cue (get-playback-cue-number pb)))
+    (format port
+            "#<<starlet-playback> state: ~a current-cue: ~a next-cue: ~a>"
+            (playback-state pb)
+            (if cur-cue
+              (exact->inexact cur-cue)
+              'current-cue-unspecified)
+            (if cur-cue
+              (next-cue-number pb)
+              'next-cue-unspecified))))
 
 
 (define (reassert-current-cue! pb)
-  (cut-to-cue-number! pb (get-playback-cue-number pb)))
+  (let ((cur-cue (get-playback-cue-number pb)))
+    (if cur-cue
+      (cut-to-cue-number! pb cur-cue)
+      'current-cue-unspecified)))
-- 
cgit v1.2.3