summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--srt2vtt/subrip.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/srt2vtt/subrip.scm b/srt2vtt/subrip.scm
index 44f118e..dd3b53f 100644
--- a/srt2vtt/subrip.scm
+++ b/srt2vtt/subrip.scm
@@ -32,7 +32,8 @@
element list. Valid input looks like '00:00:03.417'."
(let ((match (regexp-exec regexp s)))
(if match
- (map (cut match:substring match <>) '(1 2 3 4))
+ (map (compose string->number (cut match:substring match <>))
+ '(1 2 3 4))
(error "Invalid SubRip timestamp: " s))))))
(define parse-time-span