-
-(define-public (output-classic-framework outputter book scopes fields basename)
- (let* ((paper (ly:paper-book-paper book))
- (lines (ly:paper-book-systems book))
- )
+(define-public (output-classic-framework basename book scopes fields)
+ (let* ((filename (format #f "~a.texstr" basename))
+ (outputter (ly:make-paper-outputter
+ (open-file filename "wb")
+ (ly:get-option 'backend)))
+ (paper (ly:paper-book-paper book))
+ (lines (ly:paper-book-systems book)))