]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/paper-outputter.cc
* po/nl.po: Update.
[lilypond.git] / lily / paper-outputter.cc
index dff731a0ecef8438dcdf3b5c60a4c60464a0d25d..4882386cfcd5ef785d41eced4abc49012646e48e 100644 (file)
@@ -131,10 +131,8 @@ Paper_outputter::output_metadata (Paper_def *paper, 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"),
-                                        fields, SCM_UNDEFINED),
+                            ly_quote_scm (scopes),
+                            ly_quote_scm (fields),
                             scm_makfrom0str (basename_.to_str0 ()), 
                             SCM_UNDEFINED));
 }
@@ -189,7 +187,7 @@ Paper_outputter::output_line (SCM line, Offset *origin, bool is_last)
     {
       Stencil *stil = unsmob_stencil (ly_car (s));
       if (stil)
-       output_expr (stil->get_expr (), stil->origin ());
+       output_expr (stil->get_expr (), Offset (0,0));
       /* Only if !PAGE_LAYOUT */
       else if (ly_caar (s) == ly_symbol2scm ("between-system-string"))
        between = ly_cdar (s);