- if (SCM_BOOL_F != lines_)
- return lines_;
-
- lines_ = SCM_EOL;
- Stencil title = book_title ();
-
- if (!title.is_empty ())
- {
- Paper_line *pl = new Paper_line (title, true);
-
- lines_ = scm_cons (pl->self_scm (), lines_);
- scm_gc_unprotect_object (pl->self_scm ());
- }
-
- int score_count = score_lines_.size ();
- for (int i = 0; i < score_count; i++)
- {
- Stencil title = score_title (i);
- if (!title.is_empty ())
- {
- Paper_line *pl = new Paper_line (title, true);
- lines_ = scm_cons (pl->self_scm (), lines_);
- scm_gc_unprotect_object (pl->self_scm ());
- }
-
- if (scm_vector_p (score_lines_[i].lines_) == SCM_BOOL_T)
- {
- SCM line_list = scm_vector_to_list (score_lines_[i].lines_); // guh.
-
- line_list = scm_reverse (line_list);
- lines_ = scm_append (scm_list_2 (line_list, lines_));
- }
- }
-
- lines_ = scm_reverse (lines_);
-
- int i = 0;
- Paper_line * last = 0;
- for (SCM s = lines_; s != SCM_EOL; s = ly_cdr (s))