+/*
+ Return: number of objects.
+*/
+SCM
+copy_handle (void *closure, SCM handle)
+{
+ SCM tab = (SCM) closure;
+ scm_hashq_set_x (tab, scm_car (handle), scm_cdr (handle));
+ return tab;
+}
+
+static void
+copy_scm_hashes (SCM dest, SCM src)
+{
+ scm_internal_hash_for_each_handle ( (SCM (*)(GUILE_ELLIPSIS)) ©_handle, dest, src);
+}