+// UGH.
+SCM
+Scheme_hash_table::get (SCM k)const
+{
+ /*
+ 42 will stick out like a sore thumb, hopefully.
+ */
+ return scm_hashq_ref (hash_tab_, k, SCM_MAKINUM(42));
+}
+
+void
+Scheme_hash_table::remove (SCM k)
+{
+ scm_hashq_remove_x (hash_tab_, k);
+ elt_count_ --;
+}
+
+Scheme_hash_table::~Scheme_hash_table ()