source file of the GNU LilyPond music typesetter
- (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
Output_def * od = $1;
if ($1->c_variable ("is-paper") == SCM_BOOL_T)
- {
id = ly_symbol2scm ("$defaultpaper");
- init_papers (PARSER, od);
- }
else if ($1->c_variable ("is-midi") == SCM_BOOL_T)
id = ly_symbol2scm ("$defaultmidi");
else if ($1->c_variable ("is-layout") == SCM_BOOL_T)
book_block:
BOOK '{' book_body '}' {
$$ = $3;
- unstack_paper (PARSER);
+ pop_paper (PARSER);
}
;
book_body:
{
$$ = new Book;
+ init_papers (PARSER);
$$->origin ()->set_spot (@$);
$$->paper_ = dynamic_cast<Output_def*> (unsmob_output_def (PARSER->lexer_->lookup_identifier ("$defaultpaper"))->clone ());
$$->paper_->unprotect ();
- stack_paper (PARSER, $$->paper_);
+ push_paper (PARSER, $$->paper_);
$$->header_ = PARSER->lexer_->lookup_identifier ("$defaultheader");
}
| BOOK_IDENTIFIER {