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 "object-key-undumper.hh"
Object_key_undumper *undumper = (Object_key_undumper *) SCM_CELL_WORD_1 (smob);
for (Int_to_key_map::const_iterator i (undumper->keys_.begin ());
i != undumper->keys_.end (); i++)
- {
- scm_gc_mark ((*i).second->self_scm ());
- }
+ scm_gc_mark ((*i).second->self_scm ());
return SCM_BOOL_F;
}
*tail = scm_cons (key->self_scm (), SCM_EOL);
}
else
- {
- *tail = scm_cons (item, SCM_EOL);
- }
+ *tail = scm_cons (item, SCM_EOL);
tail = SCM_CDRLOC (*tail);
}
Object_key *k = Object_key::undump (new_key);
keys_[number] = k;
- scm_gc_unprotect_object (k->self_scm ());
+ k->unprotect ();
}
}