+{
+ id_dict_ = new Scheme_hash_table;
+}
+
+bool
+Scope::elem_b (String s) const
+{
+ return id_dict_->elem_b (ly_symbol2scm (s.ch_C()));
+}
+
+
+bool
+Scope::elem_b (SCM s) const
+{
+ return id_dict_->elem_b (s);
+}
+Identifier*
+Scope::elem (SCM s)const
+{
+ return unsmob_identifier (id_dict_->get (s));
+}
+
+SCM
+Scope::scm_elem (SCM s)const
+{
+ return id_dict_->get (s);
+}
+
+SCM
+Scope::scm_elem (String s) const
+{
+ return scm_elem (ly_symbol2scm (s.ch_C()));
+}
+
+Identifier*
+Scope::elem (String s)const
+{
+ return elem (ly_symbol2scm (s.ch_C()));
+}
+
+void
+Scope::set (String s, SCM id)
+{
+ return id_dict_->set (ly_symbol2scm (s.ch_C()), id);
+}
+
+void
+Scope::set (String s, Identifier * id)
+{
+ return id_dict_->set (ly_symbol2scm (s.ch_C()), id->self_scm ());
+}
+
+SCM
+Scope::to_alist () const
+{
+ return id_dict_->to_alist ();
+}