/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
}
Book::Book (Book const &s)
+ : Smob<Book> ()
{
paper_ = 0;
header_ = SCM_EOL;
return header_;
}
-int
-Book::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Book>", p);
- return 1;
-}
-
void
Book::add_score (SCM s)
{
}
}
else if (Text_interface::is_markup_list (scm_car (s))
- || Page_marker::unsmob (scm_car (s)))
+ || Page_marker::is_smob (scm_car (s)))
output_paper_book->add_score (scm_car (s));
else
assert (0);