From 42aea2a77e5ca2ab2adc944441f95916d3cb2d19 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 15 Feb 2015 13:50:57 -0500
Subject: [PATCH] subrip: Convert time components from strings to numbers.

* srt2vtt/subrip.scm (parse-time): Convert matched components to numbers.
---
 srt2vtt/subrip.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
2.31.1