From: David Thompson Date: Thu, 5 Feb 2015 16:57:42 +0000 (-0500) Subject: Check for EOF when reading subtitle lines. X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=3d5619c63693a196652e3b9e545995ec4919152c;p=srt2vtt.git Check for EOF when reading subtitle lines. * srt2vtt (read-sub-rip): Test for EOF object. --- diff --git a/srt2vtt b/srt2vtt index 8107e75..a4cb576 100755 --- a/srt2vtt +++ b/srt2vtt @@ -66,9 +66,10 @@ 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 (and (string-null? line) - ;; A subtitle may be a blank line! - (not (null? lines))) + (if (or (eof-object? line) + (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)))