-int
-Translator_group::depth_i () const
-{
- return (daddy_trans_l_) ? daddy_trans_l_->depth_i () + 1 : 0;
-}
-
-Translator_group*
-Translator_group::ancestor_l (int level)
-{
- if (!level || !daddy_trans_l_)
- return this;
-
- return daddy_trans_l_->ancestor_l (level-1);
-}
-
-void
-Translator_group::terminate_translator (Translator*r_l)
-{
- r_l->removal_processing ();
- /*
- Return value ignored. GC does the rest.
- */
- remove_translator_p (r_l);
-}
-
-
-/**
- Remove a translator from the hierarchy.
- */
-Translator *
-Translator_group::remove_translator_p (Translator*trans_l)
-{
- assert (trans_l);
-
- trans_group_list_ = scm_delq_x (trans_l->self_scm (), trans_group_list_);
- trans_l->daddy_trans_l_ = 0;
- return trans_l;
-}
-
-bool
-Translator_group::is_bottom_translator_b () const
-{
- return !gh_string_p (unsmob_translator_def (definition_)->default_child_context_name ());
-
-}
-
-Translator_group*
-Translator_group::get_default_interpreter ()
-{
- if (!is_bottom_translator_b ())
+ name = scm_cdr (name);
+ SCM accept_list = scm_hashq_ref (tab, name, SCM_UNDEFINED);
+ if (accept_list == SCM_BOOL_F)