- Return: number of objects.
- */
-int
-copy_scm_hashes (SCM dest, SCM src)
-{
- int k = 0;
- for (int i = SCM_VECTOR_LENGTH (src); i--;)
- for (SCM s = scm_vector_ref (src, scm_from_int (i)); ly_c_pair_p (s); s = ly_cdr (s))
- {
- scm_hashq_set_x (dest, ly_caar (s), ly_cdar (s));
- k++;
- }
- return k ;
-}