- Global_context * gt = dynamic_cast<Global_context *> (unsmob_context (context));
-
- SCM_ASSERT_TYPE (gt, context, SCM_ARG1, __FUNCTION__,
- "Global context");
- SCM_ASSERT_TYPE (ly_module_p (header), header, SCM_ARG2, __FUNCTION__,
- "module");
- SCM_ASSERT_TYPE (gh_string_p (out_filename), out_filename, SCM_ARG3, __FUNCTION__,
- "output filename");
-
- Music_output * output = gt->get_output ();
-
- output->header_ = header;
-
- progress_indication ("\n");
- output->process (ly_scm2string (out_filename));
-
- delete output ;
-
- return SCM_UNDEFINED ;