From ddab20cb9b5126bedd6340571794944b562fa472 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 6 Sep 2020 18:35:52 +0200
Subject: Add utils module

---
 guile/starlet/playback.scm |  3 +--
 guile/starlet/utils.scm    | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 guile/starlet/utils.scm

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 34564e5..98ce445 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -4,6 +4,7 @@
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-43)
   #:use-module (starlet base)
+  #:use-module (starlet utils)
   #:export (make-playback
             cue
             cut-to-cue-number!
@@ -149,8 +150,6 @@
     (run-cue! pb cue-index))
   (return-unspecified))
 
-(define (return-unspecified)
-  (if #f 1))
 
 (define (run-cue-number! pb cue-number)
   (let ((cue-index (cue-number-to-index (get-playback-cue-list pb)
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
new file mode 100644
index 0000000..13ee585
--- /dev/null
+++ b/guile/starlet/utils.scm
@@ -0,0 +1,15 @@
+(define-module (starlet utils)
+  #:export (return-unspecified
+            print-hash-table))
+
+
+(define (return-unspecified)
+  (if #f 1))
+
+(define (print-hash-table ht)
+  (hash-for-each (lambda (key value)
+                   (display key)
+                   (display " ---> ")
+                   (display value)
+                   (newline))
+                 ht))
-- 
cgit v1.2.3