aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/playback.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r--guile/starlet/playback.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 79629c5..51eb999 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -149,7 +149,8 @@
(let ((cue-tail (find-cue-tail (get-playback-cue-list pb)
cue-number)))
(cut-to-cue! pb (car cue-tail))
- (set-rest-of-cue-list! pb (cdr cue-tail))))
+ (set-rest-of-cue-list! pb (cdr cue-tail)))
+ (return-unspecified))
(define (cut-to-cue! pb cue)
@@ -160,13 +161,17 @@
state
0.0 1.0 0.0 0.0 (hirestime))))))
+(define (return-unspecified)
+ (if #f 1))
+
(define (go! pb)
(let ((cue-tail (get-rest-of-cue-list pb)))
(unless (eq? '() cue-tail)
(run-cue! pb (car cue-tail))
- (set-rest-of-cue-list! pb (cdr cue-tail)))))
+ (set-rest-of-cue-list! pb (cdr cue-tail))))
;; else at the end of the cue list
+ (return-unspecified))
(define (add-fade! pb fade)