diff options
| author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-11 18:11:35 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-08 18:26:49 +0100 |
| commit | d747313100cafb2d2e05c84b146e70df295d0931 (patch) | |
| tree | 1729b72db59b2b63e61b5a81e68242300109f720 /libguile/trees.c | |
| parent | a32488ba13e81e51c1fef9fb057bdd805e8b3d72 (diff) | |
Change uses of scm_is_simple_vector to scm_is_vector
* libguile/filesys.c, libguile/random.c, libguile/stime.c, libguile/trees.c,
libguile/validate.h: use scm_is_vector instead of scm_is_simple_vector.
* libguile/sort.c (scm_sort_x, scm_sort, scm_stable_sort_x)
(scm_stable_sort): Remove scm_is_vector check; scm_is_array is
sufficient.
* test-suite/tests/arrays.test: Fix header.
* test-suite/tests/random.test: New coverage test covering
random:normal-vector!.
* test-suite/Makefile.am: Include random.test in make check.
Diffstat (limited to 'libguile/trees.c')
| -rw-r--r-- | libguile/trees.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/trees.c b/libguile/trees.c index 76bb68640..88adf8820 100644 --- a/libguile/trees.c +++ b/libguile/trees.c @@ -99,7 +99,7 @@ copy_tree (struct t_trace *const hare, unsigned int tortoise_delay) #define FUNC_NAME s_scm_copy_tree { - if (!scm_is_pair (hare->obj) && !scm_is_simple_vector (hare->obj)) + if (!scm_is_pair (hare->obj) && !scm_is_vector (hare->obj)) { return hare->obj; } @@ -128,7 +128,7 @@ copy_tree (struct t_trace *const hare, --tortoise_delay; } - if (scm_is_simple_vector (hare->obj)) + if (scm_is_vector (hare->obj)) { size_t length = SCM_SIMPLE_VECTOR_LENGTH (hare->obj); SCM new_vector = scm_c_make_vector (length, SCM_UNSPECIFIED); |