X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-book.cc;h=c17ed576f1895c0a91febb29164ea9987dda1b0f;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=e23ef527772cbe2dc61d192ab2485673e8d0f7ab;hpb=0b25807868f2e1f3372a8fb5e19d9036dec53ecc;p=lilypond.git

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index e23ef52777..c17ed576f1 100644
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -53,7 +53,7 @@ Paper_book::~Paper_book ()
 {
 }
 
-const char Paper_book::type_p_name_[] = "ly:paper-book?";
+const char * const Paper_book::type_p_name_ = "ly:paper-book?";
 
 SCM
 Paper_book::mark_smob () const
@@ -514,7 +514,7 @@ Paper_book::get_system_specs ()
               SCM footnotes = get_footnotes (unsmob<Stencil> (t)->expr ());
               ps->set_property ("footnotes", footnotes);
               ps->set_property ("is-title", SCM_BOOL_T);
-              if (list == texts)
+              if (scm_is_eq (list, texts))
                 first = ps;
               else
                 {