summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2017-02-13 13:41:45 +0100
committerDaniel Llorens <daniel.llorens@bluewin.ch>2017-10-27 14:44:23 +0200
commit46ed57a17716b0fb13312fbedbccf400f7c80949 (patch)
tree5b0b6e45ba12ab006511933a91a9bdeb02b9b3c0 /libguile/random.c
parent1e8293aabfb530e65d3744bb672c9ae9fca5c089 (diff)
downloadguile-46ed57a17716b0fb13312fbedbccf400f7c80949.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.c8
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)