diff options
| -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 65f808b..e9ad81a 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -40,6 +40,7 @@ get-playback-cue-number run-cue-number! go! + cut! stop! back! cue-list @@ -232,6 +233,10 @@ 'no-more-cues-in-list))))) +(define (cut! pb) + (cut-to-cue-index! pb (get-next-cue-index pb))) + + (define (stop! pb) (let ((clock (get-cue-clock pb))) (when (and clock |