diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-09 18:17:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-06 10:51:56 +0100 |
commit | 9da9c22f846e2aa369593458201d5b5c7775b668 (patch) | |
tree | 9c3da5a81141390d08c633282de1a0062a0a9087 | |
parent | 4a7dac39a9021eeb26beefaf72d3ce63624940a0 (diff) | |
download | guile-9da9c22f846e2aa369593458201d5b5c7775b668.tar.gz |
Replace scm_c_generalized_vector_length in arrays.c
* libguile/arrays.c: (scm_array_contents, scm_make_shared_array):
arrays are known of rank 1 so replace by scm_c_array_length.
-rw-r--r-- | libguile/arrays.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c index 98c8075e9..ea0431343 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -379,7 +379,7 @@ SCM_DEFINE (scm_make_shared_array, "make-shared-array", 2, 0, 1, { SCM_I_ARRAY_V (ra) = oldra; old_base = old_min = 0; - old_max = scm_c_generalized_vector_length (oldra) - 1; + old_max = scm_c_array_length (oldra) - 1; } inds = SCM_EOL; @@ -431,7 +431,7 @@ SCM_DEFINE (scm_make_shared_array, "make-shared-array", 2, 0, 1, if (1 == SCM_I_ARRAY_NDIM (ra) && 0 == SCM_I_ARRAY_BASE (ra)) { SCM v = SCM_I_ARRAY_V (ra); - size_t length = scm_c_generalized_vector_length (v); + size_t length = scm_c_array_length (v); if (1 == s->inc && 0 == s->lbnd && length == 1 + s->ubnd) return v; if (s->ubnd < s->lbnd) @@ -584,14 +584,14 @@ SCM_DEFINE (scm_array_contents, "array-contents", 1, 1, 0, return SCM_BOOL_F; } } - + { SCM v = SCM_I_ARRAY_V (ra); - size_t length = scm_c_generalized_vector_length (v); + size_t length = scm_c_array_length (v); if ((len == length) && 0 == SCM_I_ARRAY_BASE (ra) && SCM_I_ARRAY_DIMS (ra)->inc) return v; } - + sra = scm_i_make_array (1); SCM_I_ARRAY_DIMS (sra)->lbnd = 0; SCM_I_ARRAY_DIMS (sra)->ubnd = len - 1; |