- outputter_l_->write_header_fields_to_file (header_l_);
- }
-
- outputter_l_->output_comment (_ ("Outputting Score, defined at: "));
- outputter_l_->output_comment (origin_str_);
-
- if (paper_l_->scope_p_)
- outputter_l_->output_scope (paper_l_->scope_p_, "lilypondpaper");
-
- SCM scm = gh_list (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
- outputter_l_->output_scheme (scm);
-
- line_l_->output_lines ();
-
- scm = gh_list (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
- outputter_l_->output_scheme (scm);