- Return: number of objects.
- */
-int
-copy_scm_hashes (SCM dest, SCM src)
-{
- int k = 0;
- for (int i = scm_c_vector_length (src); i--;)
- for (SCM s = scm_vector_ref (src, scm_from_int (i)); scm_is_pair (s); s = scm_cdr (s))
- {
- scm_hashq_set_x (dest, scm_caar (s), scm_cdar (s));
- k++;
- }
- return k ;
-}