- if (Global_context *g = dynamic_cast<Global_context*>
- (unsmob_context (context)))
- {
- SCM systems = ly_render_output (context, outname);
- Music_output *output = g->get_output ();
- if (systems != SCM_UNDEFINED)
- {
- Paper_score *ps = dynamic_cast<Paper_score*> (output);
-#if 1
- paper_book->protect_ = scm_cons (systems, paper_book->protect_);
- paper_book->protect_ = scm_cons (global_input_file->header_,
- paper_book->protect_);
- paper_book->protect_ = scm_cons (header, paper_book->protect_);
- paper_book->protect_ = scm_cons (ps->paper_->smobbed_copy (),
- paper_book->protect_);
-#endif
- paper_book->papers_.push (ps->paper_);
- paper_book->scores_.push (systems);
- paper_book->global_headers_.push (global_input_file->header_);
- paper_book->headers_.push (header);
- if (output_format_global != PAGE_LAYOUT)
- paper_book->classic_output (ly_scm2string (outname));
- }
- delete output;
- }
+SCM
+Score::get_header () const
+{
+ return header_;
+}
+
+void
+Score::set_header (SCM module)
+{
+ assert (ly_is_module (module));
+ header_ = module;