diff options
| -rw-r--r-- | guile/starlet/playback.scm | 3 | ||||
| -rw-r--r-- | guile/starlet/utils.scm | 15 |
2 files changed, 16 insertions, 2 deletions
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)) |