* srt2vtt/subrip.scm (parse-time): Convert matched components to numbers.
element list. Valid input looks like '00:00:03.417'."
(let ((match (regexp-exec regexp s)))
(if match
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
(error "Invalid SubRip timestamp: " s))))))
(define parse-time-span