X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-texstr.scm;h=6bde0616bd2ebfb2d65691f0bb687efd65814ca2;hb=fb392ada230cad39fe2d825892c95d534eaaf1a4;hp=88bc25a228e0200c6ce9e18e3aba338b02c1d7b0;hpb=612d453f6d2336536e0e89e73ae9d38f08f72da4;p=lilypond.git

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 88bc25a228..6bde0616bd 100644
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-texstr)
   #:export (output-framework-tex	
@@ -35,7 +35,7 @@
   (let* ((filename (format "~a.texstr" basename))
 	 (outputter (ly:make-paper-outputter
 		     (open-file filename "wb")
-		     (ly:output-backend)))
+		     (ly:get-option 'backend)))
 	 (paper (ly:paper-book-paper book))
 	 (lines (ly:paper-book-systems book)))
     (ly:outputter-dump-string outputter (header basename))
@@ -50,7 +50,7 @@
 	 (outputter
 	  (ly:make-paper-outputter
 	   (open-file filename "wb")
-	   (ly:output-backend)))
+	   (ly:get-option 'backend)))
 	 (paper (ly:paper-book-paper book))
 	 (pages (ly:paper-book-pages book)))
     (ly:outputter-dump-string outputter (header basename))