diff options
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r-- | libguile/gh_data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c index 5597e9a88..6e7eab19c 100644 --- a/libguile/gh_data.c +++ b/libguile/gh_data.c @@ -136,7 +136,7 @@ SCM gh_ints2scm (int *d, int n) { int i; - SCM v = scm_make_vector(SCM_MAKINUM(n), SCM_UNSPECIFIED); + SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); SCM *velts = SCM_VELTS(v); for (i = 0; i < n; ++i) @@ -149,7 +149,7 @@ SCM gh_doubles2scm (const double *d, int n) { int i; - SCM v = scm_make_vector(SCM_MAKINUM(n), SCM_UNSPECIFIED); + SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); SCM *velts = SCM_VELTS(v); for(i = 0; i < n; i++) |