diff options
| -rw-r--r-- | srt2vtt/subrip.scm | 3 |
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 |