* srt2vtt: Add blank line between signature and first subtitle.
(newline port))))
(define (write-web-vtts subtitles port)
(newline port))))
(define (write-web-vtts subtitles port)
- (display "WEBVTT\n" port)
+ (format port "WEBVTT~%~%")
(for-each (cut write-web-vtt <> port) subtitles))
(define (convert input-port output-port)
(for-each (cut write-web-vtt <> port) subtitles))
(define (convert input-port output-port)