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

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

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index df677004e8b8662babbeaa8a98f48209f0e286d3..7fd5294b4987ba7a8da3f85dca178a21d2c32e75 100644 (file)
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -32,7 +32,9 @@
 
 (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)))
     (ly:outputter-dump-string outputter (header basename))
@@ -44,7 +46,10 @@
 
 (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)))
     (ly:outputter-dump-string outputter (header basename))