mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

New functions: scm_c_make_vector, scm_c_make_hash_table.

Browse source
This commit is contained in:
Keisuke Nishida 2001-02-02 04:56:25 +00:00
parent b8446ce883
commit 00ffa0e7d6
22 changed files with 87 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -3760,7 +3760,7 @@ SCM_DEFINE (scm_copy_tree, "copy-tree", 1, 0, 0,
if (SCM_VECTORP (obj))
{
scm_sizet i = SCM_VECTOR_LENGTH (obj);
ans = scm_make_vector (SCM_MAKINUM (i), SCM_UNSPECIFIED);
ans = scm_c_make_vector (i, SCM_UNSPECIFIED);
while (i--)
SCM_VELTS (ans)[i] = scm_copy_tree (SCM_VELTS (obj)[i]);
return ans;