- (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-#include "scm-hash.hh"
-
-#include <cstdio>
-
-#include "ly-smobs.icc"
-
-/*
- 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 ;
-}
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.