From 99e41c5b071d7e231f2cc55e0fb833fa58626c78 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 3 Sep 2020 19:53:27 +0200 Subject: Return unspecified from 'go!' and 'cut-to-cue-number!' --- guile/starlet/playback.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'guile/starlet/playback.scm') 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) -- cgit v1.2.3