diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-02-15 13:50:57 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-02-15 14:33:38 -0500 |
| commit | 42aea2a77e5ca2ab2adc944441f95916d3cb2d19 (patch) | |
| tree | 004dc14e6e4b49c52e6436bedd71d92be26f7c1b | |
| parent | 708435af526cd055e2d30442cbdf73f9314faae2 (diff) | |
subrip: Convert time components from strings to numbers.
* srt2vtt/subrip.scm (parse-time): Convert matched components to numbers.
| -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 |