includeFromSong =
#(define-void-function (filename) (string?)
  (let ((noDefaultOutputBackup noDefaultOutput))
    (set! noDefaultOutput #t)
    (ly:parser-parse-string (ly:parser-clone)
      (ly:format "\\include \"~a\"" filename))
    (set! noDefaultOutput noDefaultOutputBackup)))