Merge branch 'master' of ssh+git://git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / lily / book.cc

diff --git a/lily/book.cc b/lily/book.cc
index 265632a3656d26145d53ad7e8beb0e86ab6131f5..335507601d37fc46d3e1fa381e904b4b27421f82 100644 (file)
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -146,15 +146,15 @@ Book::process (Output_def *default_paper,
                paper_book->add_performance (perf->self_scm ());
              else if (Paper_score *pscore = dynamic_cast<Paper_score *> (output))
                {
-                 if (ly_is_module (score->header_))
-                   paper_book->add_score (score->header_);
+                 if (ly_is_module (score->get_header ()))
+                   paper_book->add_score (score->get_header ());
                  paper_book->add_score (pscore->self_scm ());
                }
 
              outputs = scm_cdr (outputs);
            }
        }
-      else if (Text_interface::is_markup (scm_car (s))
+      else if (Text_interface::is_markup_list (scm_car (s))
               || unsmob_page_marker (scm_car (s)))
        paper_book->add_score (scm_car (s));
       else