- paper_ = paper;
- number_ = number;
- page_count_++;
-
- height_ = 0;
- lines_ = SCM_EOL;
- line_count_ = 0;
-
- hsize_ = paper->get_realvar (ly_symbol2scm ("hsize"));
- vsize_ = paper->get_realvar (ly_symbol2scm ("vsize"));
- top_margin_ = paper->get_realvar (ly_symbol2scm ("top-margin"));
- bottom_margin_ = paper->get_realvar (ly_symbol2scm ("bottom-margin"));
- head_sep_ = paper->get_realvar (ly_symbol2scm ("head-sep"));
- foot_sep_ = paper->get_realvar (ly_symbol2scm ("foot-sep"));
- text_width_ = paper->get_realvar (ly_symbol2scm ("linewidth"));
- left_margin_ = (hsize_ - text_width_) / 2;
-
- copyright_ = SCM_EOL;
- tagline_ = SCM_EOL;
-
- SCM make_header = scm_primitive_eval (ly_symbol2scm ("make-header"));
- SCM make_footer = scm_primitive_eval (ly_symbol2scm ("make-footer"));
-
- header_ = scm_call_2 (make_header, paper_->smobbed_copy (),
- scm_int2num (number_));
- // FIXME: why does this (generates Stencil) not trigger font load?
- if (get_header ())
- get_header ()->align_to (Y_AXIS, UP);
-
- footer_ = scm_call_2 (make_footer, paper_->smobbed_copy (),
- scm_int2num (number_));
- if (get_footer ())
- get_footer ()->align_to (Y_AXIS, UP);
+ Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
+ if (b->paper_)
+ scm_gc_mark (b->paper_->self_scm ());
+ scm_gc_mark (b->header_);
+ scm_gc_mark (b->header_0_);
+ scm_gc_mark (b->pages_);
+ scm_gc_mark (b->performances_);
+ scm_gc_mark (b->scores_);
+ return b->systems_;