* lily/translator-def.cc (get_translator_names): new function

[lilypond.git] / lily / translator.cc

diff --git a/lily/translator.cc b/lily/translator.cc
index 5c53e35449b59ab372bd2638121d676aa86097cc..ee40e52e0bdccb9516085e7407765e3a7d6806dc 100644 (file)
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -50,13 +50,7 @@ Translator::Translator (Translator const &s)
 bool
 Translator::is_alias (SCM sym) const
 {
-  Translator_def * td = unsmob_translator_def (definition_);
-  bool b  = (sym == td->type_name_);
-
-  for (SCM a = td->type_aliases_; !b && gh_pair_p (a); a = ly_cdr (a))
-    b = b || sym == ly_car (a);
-
-  return b;
+  return unsmob_translator_def (definition_)->is_alias (sym);
 }
 
 bool