source file of the GNU LilyPond music typesetter
- (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "book.hh"
book->scores_ = scm_append (scm_list_2 (scores, book->scores_));
SCM x = book->self_scm ();
- scm_gc_unprotect_object (x);
+ book->unprotect ();
return x;
}
if (pb)
{
pb->output (output);
- scm_gc_unprotect_object (pb->self_scm ());
+ pb->unprotect ();
}
return SCM_UNSPECIFIED;