diff options
| -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))) |