* scm/define-markup-commands.scm (smallcaps): New markup command.

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

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index 561c830387d5bda41d73c3fe6ae8346f3fda849d..5e64c895b521753e820d104eb0f08b92e2d54531 100644 (file)
--- a/lily/paper-outputter.cc
+++ b/lily/paper-outputter.cc
@@ -58,7 +58,7 @@ Paper_outputter::output_scheme (SCM scm)
 }
 
 void
-Paper_outputter::output_metadata (SCM scopes)
+Paper_outputter::output_metadata (SCM scopes, Paper_def *paper)
 {
   SCM fields = SCM_EOL;
   for (int i = dump_header_fieldnames_global.size (); i--;)
@@ -66,6 +66,7 @@ Paper_outputter::output_metadata (SCM scopes)
                                     fields);
   
   output_scheme (scm_list_n (ly_symbol2scm ("output-scopes"),
+                            paper->self_scm (),
                             scm_list_n (ly_symbol2scm ("quote"),
                                         scopes, SCM_UNDEFINED),
                             scm_list_n (ly_symbol2scm ("quote"),