(LY_DEFINE): show file name when loading PFB.

[lilypond.git] / lily / paper-outputter-scheme.cc

diff --git a/lily/paper-outputter-scheme.cc b/lily/paper-outputter-scheme.cc
index c0208297a8a75c37889e84d531fe08c39452467f..2c8af7e906ac001a61822bf23b7709df82fd48a8 100644 (file)
--- a/lily/paper-outputter-scheme.cc
+++ b/lily/paper-outputter-scheme.cc
@@ -23,7 +23,7 @@ LY_DEFINE (ly_make_paper_outputter, "ly:make-paper-outputter",
   String outname_str = ly_scm2string (outname);
   String f = ly_scm2string (format);
 
-  progress_indication (_f ("Layout output to `%s'...",
+  message (_f ("Layout output to `%s'...",
                           outname_str == "-"
                           ? String ("<stdout>")
                           : outname_str));
@@ -78,3 +78,15 @@ LY_DEFINE (ly_outputter_close, "ly:outputter-close",
   po->close ();
   return SCM_UNSPECIFIED;
 }
+
+LY_DEFINE (ly_outputter_output_scheme, "ly:outputter-output-scheme",
+          2, 0, 0, (SCM outputter, SCM expr),
+          "Eval @var{expr} in module of @var{outputter}.")
+{
+  Paper_outputter *po = unsmob_outputter (outputter);
+  SCM_ASSERT_TYPE (po, outputter, SCM_ARG1, __FUNCTION__, "Paper_outputter");
+
+  po->output_scheme (expr);
+
+  return SCM_UNSPECIFIED;
+}