\version "2.19.16"

thisFile =
#(define-scheme-function (parser location)()
   (car (ly:input-file-line-char-column location)))