diff options
author | Thomas White <taw@physics.org> | 2021-01-31 15:58:45 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-01-31 15:58:45 +0100 |
commit | d84543e948e7faacd6e4e55b3583b88289ec9147 (patch) | |
tree | cd67fb9f2bfbb6c5d5f833478e7fb4491f15fe0d /guile/starlet | |
parent | 983244d877a789d0d5f55a1c6883aaba710efe35 (diff) |
Replace return-unspecified with *unspecified*
Diffstat (limited to 'guile/starlet')
-rw-r--r-- | guile/starlet/playback.scm | 8 | ||||
-rw-r--r-- | guile/starlet/utils.scm | 6 |
2 files changed, 5 insertions, 9 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 3d662e4..a480a1f 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -163,20 +163,20 @@ val))) pb)) - (return-unspecified)) + *unspecified*) (define (go! pb) (let ((cue-index (get-next-cue-index pb))) (run-cue! pb cue-index)) - (return-unspecified)) + *unspecified*) (define (run-cue-number! pb cue-number) (let ((cue-index (cue-number-to-index (get-playback-cue-list pb) cue-number))) (run-cue! pb cue-index)) - (return-unspecified)) + *unspecified*) (define (run-cue! pb cue-index) @@ -185,7 +185,7 @@ (run-cue-index! pb cue-list cue-index (hirestime)) (set-next-cue-index! pb (+ cue-index 1)))) ;; else at the end of the cue list - (return-unspecified)) + *unspecified*) (define (fade-func start-val end-val fade-time delay-time start-time current-time) diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm index 049bd86..940441c 100644 --- a/guile/starlet/utils.scm +++ b/guile/starlet/utils.scm @@ -1,7 +1,6 @@ (define-module (starlet utils) #:use-module (srfi srfi-1) - #:export (return-unspecified - print-hash-table + #:export (print-hash-table copy-hash-table partial in-range @@ -10,9 +9,6 @@ more-than-one)) -(define (return-unspecified) - (if #f 1)) - (define (print-hash-table ht) (hash-for-each (lambda (key value) (display key) |