From d84543e948e7faacd6e4e55b3583b88289ec9147 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 31 Jan 2021 15:58:45 +0100
Subject: Replace return-unspecified with *unspecified*

---
 guile/starlet/playback.scm | 8 ++++----
 guile/starlet/utils.scm    | 6 +-----
 2 files changed, 5 insertions(+), 9 deletions(-)

(limited to 'guile')

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)
-- 
cgit v1.2.3