subrip: Fix reversed subtitle lines.

[srt2vtt.git] / srt2vtt / subrip.scm

diff --git a/srt2vtt/subrip.scm b/srt2vtt/subrip.scm
index dd3b53f6500f44efccb1046292c7831cb33379ec..0031db363eafd1a2b5b70774a0f73a4fc757a7f9 100644 (file)
--- a/srt2vtt/subrip.scm
+++ b/srt2vtt/subrip.scm
@@ -58,7 +58,7 @@ two values: the start time and the end time.  Valid input looks like
                                     (and (string-null? line)
                                          ;; A subtitle may be a blank line!
                                          (not (null? lines))))
                                     (and (string-null? line)
                                          ;; A subtitle may be a blank line!
                                          (not (null? lines))))

-                                lines
+                                (reverse lines)

                                 (loop (cons line lines)))))))
     (make-subtitle id start end lines)))
 
                                 (loop (cons line lines)))))))
     (make-subtitle id start end lines)))