diff options
author | Thomas White <taw@physics.org> | 2021-10-23 10:59:44 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-10-23 10:59:57 +0200 |
commit | d9bd87cc4f1bb1b5efb4260feb530c6d5aad142e (patch) | |
tree | ad8423b9f041dd19bd7e20984aa937473d2f8bd3 /guile/starlet/playback.scm | |
parent | 5592dadf5af7bd95890259af689a72ade528f600 (diff) |
Add 'reassert-current-cue!'
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r-- | guile/starlet/playback.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 55bbcf0..6211a8a 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -46,6 +46,7 @@ back! cue-list reload-cue-list! + reassert-current-cue! print-playback state-change-hook)) @@ -732,3 +733,7 @@ (track-all-cues! the-cue-list) (preset-all-cues! the-cue-list) the-cue-list)))) + + +(define (reassert-current-cue! pb) + (cut-to-cue-number! pb (get-playback-cue-number pb))) |