-SCM
-names_to_translators (SCM namelist, Context*tg)
-{
- SCM l = SCM_EOL;
- for (SCM s = namelist; gh_pair_p (s) ; s = ly_cdr (s))
- {
- Translator * t = get_translator (ly_car (s));
- if (!t)
- warning (_f ("can't find: `%s'", s));
- else
- {
- Translator * tr = t->clone ();
- SCM str = tr->self_scm ();
- l = gh_cons (str, l);
-
- tr->daddy_context_ = tg;
- scm_gc_unprotect_object (str);
- }
- }
- return l;
-}
-