diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2017-02-13 13:41:45 +0100 |
---|---|---|
committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2017-10-31 13:45:14 +0100 |
commit | 2d8c75f9f252b41aad93b5dfcdf10a1aee86e463 (patch) | |
tree | 01fe2ddeb0ffc954e23b065c6168618f1faaa30f /libguile/random.c | |
parent | 4267a8b6d5913e25697bd3932e194ef16e9157ac (diff) | |
download | guile-2d8c75f9f252b41aad93b5dfcdf10a1aee86e463.tar.gz |
Remove scm_generalized_vector_get_handle
This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec).
* libguile/bitvectors.c (scm_bitvector_writable_elements): Replace
scm_generalized_vector_get_handle.
Remove unnecessary #includes.
* libguile/vectors.c (scm_vector_writable_elements): Replace
scm_generalized_vector_get_handle.
Remove unnecessary #includes.
* libguile/random.c (scm_random_normal_vector_x): Replace
scm_generalized_vector_get_handle.
* libguile/generalized-vectors.h, libguile/generalized-vectors.c
(scm_generalized_vector_get_handle): Remove.
Remove unnecessary #includes.
* NEWS: Add removal notice.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c index 1ee0459de..a8ad07567 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, state); - scm_generalized_vector_get_handle (v, &handle); + scm_array_get_handle (v, &handle); + if (1 != scm_array_handle_rank (&handle)) + { + scm_array_handle_release (&handle); + scm_wrong_type_arg_msg (NULL, 0, v, "rank 1 array"); + } + dim = scm_array_handle_dims (&handle); if (handle.element_type == SCM_ARRAY_ELEMENT_TYPE_SCM) |