(get_simple_trans_list):

[lilypond.git] / lily / translator-def.cc

diff --git a/lily/translator-def.cc b/lily/translator-def.cc
index 37bc280533f21019b0263ba667b11dca7a76da43..abe16e0b696dbfe3b6b64333d0b5b94fa70f04f5 100644 (file)
--- a/lily/translator-def.cc
+++ b/lily/translator-def.cc
@@ -217,29 +217,6 @@ IMPLEMENT_SMOBS (Translator_def);
 IMPLEMENT_DEFAULT_EQUAL_P (Translator_def);
 
 
-static SCM
-names_to_translators (SCM namelist, Translator_group*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_trans_ = tg;
-         tr->output_def_  = tg->output_def_;
-
-         scm_gc_unprotect_object (str);
-       }
-    }
-  return l;
-}
 
 
 SCM
@@ -284,12 +261,10 @@ Translator_def::instantiate (Music_output_def* md, SCM ops)
   tg->output_def_ = md;
   tg->definition_ = self_scm ();
 
-  SCM trans_names = get_translator_names (ops); 
-  tg->simple_trans_list_ = names_to_translators (trans_names, tg);
-
   return tg;
 }
 
+
 SCM
 Translator_def::clone_scm () const
 {