source file of the GNU LilyPond music typesetter
- (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "paper-score.hh"
{
layout_ = layout;
system_ = 0;
- pscore_ = 0;
systems_ = SCM_EOL;
paper_systems_ = SCM_EOL;
}
{
if (layout_)
scm_gc_mark (layout_->self_scm ());
- if (pscore_)
- scm_gc_mark (pscore_->self_scm ());
scm_gc_mark (systems_);
scm_gc_mark (paper_systems_);
}
systems_ = scm_cons (system->self_scm (), systems_);
system->pscore_ = this;
- system->layout_ = pscore_->layout_;
+ system->layout_ = layout_;
system->unprotect ();
}