* lily/include/lily-guile.hh: rename ly_c_X_p -> ly_is_X

[lilypond.git] / scm / framework-tex.scm

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 441fcd557d92d4f0169ef99b036ba377514568ae..a6b28b1d23f9bca887c56fc464f498df8c7e674a 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -191,7 +191,7 @@
 
 (define-public (output-framework basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename "tex"))
+        (outputter  (ly:make-paper-outputter (open-file filename "wb") "tex"))
         (paper (ly:paper-book-paper book))
         (pages (ly:paper-book-pages book))
         (last-page (car (last-pair pages)))
@@ -233,7 +233,8 @@
 (define-public (output-classic-framework
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename "tex"))
+        (outputter  (ly:make-paper-outputter
+                     (open-file filename "w") "tex"))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
         (last-line (car (last-pair lines))))
@@ -259,7 +260,7 @@
 (define-public (output-preview-framework
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter filename
+        (outputter  (ly:make-paper-outputter (open-file filename "wb")
                                              "tex"))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))