+bool
+Scheme_hash_table::contains (SCM k) const
+{
+ return scm_is_pair (scm_hashq_get_handle (hash_tab_, k));
+}
+
+void
+Scheme_hash_table::set (SCM k, SCM v)
+{
+ assert (scm_is_symbol (k));
+ SCM handle = scm_hashq_create_handle_x (hash_tab_, k, SCM_UNDEFINED);
+ if (scm_cdr (handle) == SCM_UNDEFINED)
+ elt_count_++;
+
+ scm_set_cdr_x (handle, v);