source file of the GNU LilyPond music typesetter
- (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "translator.hh"
SCM l = global_translator_dict ? global_translator_dict->to_alist () : SCM_EOL;
for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
- {
- scm_set_car_x (s, scm_cdar (s));
- }
+ scm_set_car_x (s, scm_cdar (s));
return l;
}
if (!global_translator_dict)
global_translator_dict = new Scheme_hash_table;
- SCM k = ly_symbol2scm (classname (t));
+ SCM k = ly_symbol2scm (t->class_name ());
global_translator_dict->set (k, t->self_scm ());
- scm_gc_unprotect_object (t->self_scm ());
+ t->unprotect ();
}
Translator *