+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);
+ scm_set_cdr_x (handle, v);
+}
+
+SCM
+Scheme_hash_table::get (SCM k) const
+{
+ /* SCM_UNSPECIFIED will stick out like a sore thumb, hopefully.
+ */
+ return scm_hashq_ref (hash_tab_, k, SCM_UNSPECIFIED);
+}