summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0f6e486)
* srt2vtt (read-sub-rip): Allow the first subtitle line to be blank.
((start end) (parse-time-span (read-line port)))
((lines) (let loop ((lines '()))
(let ((line (read-line port)))
((start end) (parse-time-span (read-line port)))
((lines) (let loop ((lines '()))
(let ((line (read-line port)))
- (if (string-null? line)
+ (if (and (string-null? line)
+ ;; A subtitle may be a blank line!
+ (not (null? lines)))
lines
(loop (cons line lines)))))))
(make-subtitle id start end lines)))
lines
(loop (cons line lines)))))))
(make-subtitle id start end lines)))