- SCM context = ly_run_translator (music, outdef);
-
- if (Global_context *g = dynamic_cast<Global_context*>
- (unsmob_context (context)))
- {
- SCM systems = ly_format_output (context, outname);
- Music_output *output = g->get_output ();
- if (systems != SCM_UNDEFINED)
- {
- Paper_book *paper_book = new Paper_book ();
- Paper_score *ps = dynamic_cast<Paper_score*> (output);
- paper_book->papers_.push (ps->paper_);
- paper_book->scores_.push (systems);
- paper_book->headers_.push (header);
-
- paper_book->classic_output (ly_scm2string (outname));
- scm_gc_unprotect_object (paper_book->self_scm ());
- }
- delete output;
- }