X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-texstr.scm;h=0fec9f94fb49ef14a559ee6e3db0c2a7c171801b;hb=05ea596de0b94fdcc64fa6bafccf4078ccfd53cf;hp=5078b35b9d53dc7845675a9487769bd97817c806;hpb=7eaeba29769613cb105e71ac40a71746d1601d90;p=lilypond.git

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 5078b35b9d..0fec9f94fb 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@xs4all.nl>
+;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-texstr)
   #:export (output-framework-tex	
@@ -11,12 +11,13 @@
 (use-modules (ice-9 regex)
 	     (scm paper-system)
 	     (ice-9 string-fun)
-	     (ice-9 format)
 	     (guile)
 	     (srfi srfi-1)
 	     (srfi srfi-13)
 	     (lily))
 
+(define format ergonomic-simple-format)
+
 (define (header filename)
   (format  "% header
 \\input{lilypond-tex-metrics}
@@ -32,10 +33,10 @@
 ")
 
 (define-public (output-classic-framework basename book scopes fields)
-  (let* ((filename (format "~a.texstr" basename))
+  (let* ((filename (format #f "~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))
@@ -46,11 +47,11 @@
     (ly:outputter-dump-string outputter (footer))))
 
 (define-public (output-framework basename book scopes fields )
-  (let* ((filename (format "~a.texstr" basename))
+  (let* ((filename (format #f "~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))
 	 (pages (ly:paper-book-pages book)))
     (ly:outputter-dump-string outputter (header basename))