From 3d5619c63693a196652e3b9e545995ec4919152c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 5 Feb 2015 11:57:42 -0500 Subject: [PATCH] Check for EOF when reading subtitle lines. * srt2vtt (read-sub-rip): Test for EOF object. --- srt2vtt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) -- 2.31.1