(GUILE_ELLIPSIS): define to get clean

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

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 99be33adeded7501cc2a6832dd17f805370a6501..5e274e98b6d479178a5e3095a6a50b4483dfa3f1 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -57,10 +57,7 @@ Paper_book::print_smob (SCM smob, SCM port, scm_print_state*)
 {
   Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
 
-  scm_puts ("#<", port);
-  scm_puts (b->class_name (), port);
-  scm_puts (" ", port);
-  scm_puts (">", port);
+  scm_puts ("#<Paper_book>", port);
   return 1;
 }
 
@@ -249,6 +246,7 @@ Paper_book::add_score_title (SCM header)
       */
       SCM props = paper_->lookup_variable (ly_symbol2scm ("score-title-properties"));
       Paper_system *ps = new Paper_system (title, props);
+      systems_ = scm_cons (ps->self_scm (), systems_);
       ps->unprotect ();
       set_system_penalty (ps, header);
     }