Web-ja: update introduction

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

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 3a672198b538df5a880c19b1032db80adb1af946..c17ed576f1895c0a91febb29164ea9987dda1b0f 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -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
                 {