source file of the GNU LilyPond music typesetter
- (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "tweak-registration.hh"
undumper_ = 0;
smobify_self ();
undumper_ = new Object_key_undumper ();
- scm_gc_unprotect_object (undumper_->self_scm ());
+ undumper_->unprotect ();
}
Tweak_registry::~Tweak_registry ()
{
tweaks_.clear ();
undumper_ = new Object_key_undumper ();
- scm_gc_unprotect_object (undumper_->self_scm ());
+ undumper_->unprotect ();
}
void
void
Tweak_registry::insert_grob_tweak (Grob *g, SCM tweak)
{
- Object_key const *key = g->get_key ();
+ Object_key const *key = g->key ();
if (tweaks_.find (key) == tweaks_.end ())
tweaks_[key] = SCM_EOL;
void
Tweak_registry::replace_grob_tweak (Grob *g, SCM tweak)
{
- Object_key const *key = g->get_key ();
+ Object_key const *key = g->key ();
tweaks_[key] = scm_cons (tweak, SCM_EOL);
}
SCM
Tweak_registry::get_tweaks (Grob *g)
{
- Object_key const *key = g->get_key ();
+ Object_key const *key = g->key ();
if (tweaks_.find (key) == tweaks_.end ())
return SCM_EOL;
return tweaks_[key];