X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-texstr.scm;h=88bc25a228e0200c6ce9e18e3aba338b02c1d7b0;hb=1342eb3d7fcf9c1725ff99ffea417ce10325be2d;hp=17d4e5a8ff98cbc429b43b1b263dffec9631aa83;hpb=57e9d4bb7dc057ffddb1b5b82aaddb8a996af89b;p=lilypond.git

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 17d4e5a8ff..88bc25a228 100644
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -2,13 +2,14 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 (define-module (scm framework-texstr)
   #:export (output-framework-tex	
 	    output-classic-framework-tex))
 
 (use-modules (ice-9 regex)
+	     (scm paper-system)
 	     (ice-9 string-fun)
 	     (ice-9 format)
 	     (guile)
@@ -30,28 +31,28 @@
 \\end{document}
 ")
 
-
 (define-public (output-classic-framework basename book scopes fields)
   (let* ((filename (format "~a.texstr" basename))
-	 (outputter  (ly:make-paper-outputter filename
-					      (ly:output-backend)))
+	 (outputter (ly:make-paper-outputter
+		     (open-file filename "wb")
+		     (ly:output-backend)))
 	 (paper (ly:paper-book-paper book))
-	 (lines (ly:paper-book-systems book))
-	 )
+	 (lines (ly:paper-book-systems book)))
     (ly:outputter-dump-string outputter (header basename))
     (for-each
      (lambda (system)
-       (ly:outputter-dump-stencil outputter (ly:paper-system-stencil system)))
+       (ly:outputter-dump-stencil outputter (paper-system-stencil system)))
      lines)
     (ly:outputter-dump-string outputter (footer))))
 
 (define-public (output-framework basename book scopes fields )
   (let* ((filename (format "~a.texstr" basename))
-	 (outputter  (ly:make-paper-outputter filename
-					      (ly:output-backend)))
+	 (outputter
+	  (ly:make-paper-outputter
+	   (open-file filename "wb")
+	   (ly:output-backend)))
 	 (paper (ly:paper-book-paper book))
-	 (pages (ly:paper-book-pages book))
-	 )
+	 (pages (ly:paper-book-pages book)))
     (ly:outputter-dump-string outputter (header basename))
     (for-each
      (lambda (page)