* Documentation/topdocs/NEWS.tely: add inputfileref macro.

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

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 903cd19310c24bc0a17f2aadb6364f1e576048d2..231b1cc1eeaa31701971ac86189765b8b19225bb 100644 (file)
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -31,8 +31,11 @@
 ")
 
 
-(define-public (output-classic-framework outputter book scopes fields basename)
-  (let* ((paper (ly:paper-book-paper book))
+(define-public (output-classic-framework basename book scopes fields)
+  (let* ((filename (format "~a.texstr" basename))
+        (outputter  (ly:make-paper-outputter filename
+                                             (ly:output-backend)))
+        (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
         )
     (ly:outputter-dump-string outputter (header basename))
@@ -42,8 +45,11 @@
      lines)
     (ly:outputter-dump-string outputter (footer))))
 
-(define-public (output-framework outputter book scopes fields basename)
-  (let* ((paper (ly:paper-book-paper book))
+(define-public (output-framework basename book scopes fields )
+  (let* ((filename (format "~a.texstr" basename))
+        (outputter  (ly:make-paper-outputter filename
+                                             (ly:output-backend)))
+        (paper (ly:paper-book-paper book))
         (pages (ly:paper-book-pages book))
         )
     (ly:outputter-dump-string outputter (header basename))