diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-02-02 04:56:25 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-02-02 04:56:25 +0000 |
commit | 00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8 (patch) | |
tree | d779edbe115e20363242e8cacec89ae6e596560b /libguile/eval.c | |
parent | b8446ce883e7155def42f479a39b6a870b318720 (diff) | |
download | guile-00ffa0e7d666ed7d7b4f7a63c95de69d18e2bee8.tar.gz |
New functions: scm_c_make_vector, scm_c_make_hash_table.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index eaef7570e..b1cc84f96 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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; |