-}
-
-int
-Scheme_hash_table::print_smob (SCM s, SCM p, scm_print_state*)
-{
- assert (SMOB_IS_TYPE_B (Scheme_hash_table, s));
- char str[1000];
- sprintf (str, "#<Scheme_hash_table 0x%0x ", s);
- scm_puts (str, p);
- Scheme_hash_table *me = SMOB_TO_TYPE(Scheme_hash_table,s);
- for (Scm_stl_map ::const_iterator i = me->begin (); i != me->end(); i++)
- {
- scm_display ((*i).first, p);
- scm_puts (" = ",p);
- scm_display ((*i).second, p);
- scm_puts ("\n",p);
- }
- scm_puts ("> ",p);
- return 1;
-}
-
-bool
-Scheme_hash_table::try_retrieve (SCM k, SCM *v)
-{
- Scm_stl_map ::const_iterator i (find (k));
- bool found = i != end ();
- if (found)
- *v = (*i).second;
- return found;
-}
-
-bool
-Scheme_hash_table::elem_b (SCM k) const
-{
- Scm_stl_map::const_iterator i (find (k));
- return i != end ();