diff options
author | Thomas White <taw@physics.org> | 2022-06-18 12:17:05 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-06-18 12:17:05 +0200 |
commit | c0205cee7d3f7caafc84661948d3c5b2cc854751 (patch) | |
tree | b483968859bf4b0c030f70b10b97deb1d4d0690d /guile/starlet | |
parent | 4962a8a5b2c02322bbd781186884ee7e1c3ed763 (diff) |
Playback: avoid more trouble if current cue doesn't exist
Diffstat (limited to 'guile/starlet')
-rw-r--r-- | guile/starlet/playback.scm | 20 |
1 files changed, 14 insertions, 6 deletions
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))) |