- if (book->paper_)
- scm_gc_mark (book->paper_->self_scm ());
- scm_gc_mark (book->scores_);
- scm_gc_mark (book->bookparts_);
- scm_gc_mark (book->input_location_);
-
- return book->header_;
-}
-
-int
-Book::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Book>", p);
- return 1;