\version "2.19.6"

#(use-modules (ice-9 rdelim))

#(define (display-file port)
   (let* ((line (read-line port 'split))
         (linestr (car line))
         (del (cdr line)))
     (if (eof-object? del)
         '()
         (begin
          (display linestr)(newline)
          (display-file port)))))

displayFile =
#(define-void-function (parser location)()
(call-with-input-file
           (string-append (ly:parser-output-name parser) ".ly")
           display-file))

\displayFile