diff options
-rwxr-xr-x | srt2vtt | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -66,7 +66,9 @@ two values: the start time and the end time. Valid input looks like ((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))) |