diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-06 18:56:34 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-06 18:56:34 +0000 |
commit | c8857a4db44ba4242ae05f57fe89ffd4e3971776 (patch) | |
tree | 3320a9e67ffbfd694c63a16fa87dc00fd8d35009 /libguile/random.c | |
parent | fea99690f2e31b08d4261d91509c6fed7d945125 (diff) | |
download | guile-c8857a4db44ba4242ae05f57fe89ffd4e3971776.tar.gz |
(scm_array_handle_release): New, changed all uses of
scm_t_array_handle to properly call it.
(scm_vector_get_handle, scm_generalized_vector_get_handle):
Renamed former to latter, changed all uses.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c index 37d16fc1c..82bd31784 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -446,6 +446,8 @@ vector_scale_x (SCM v, double c) for (i = 0; i < len; i++, elts += inc) *elts *= c; + + scm_array_handle_release (&handle); } } @@ -479,6 +481,7 @@ vector_sum_squares (SCM v) sum += x * x; } + scm_array_handle_release (&handle); } return sum; } @@ -545,7 +548,7 @@ 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_vector_get_handle (v, &handle); + scm_generalized_vector_get_handle (v, &handle); dim = scm_array_handle_dims (&handle); if (scm_is_vector (v)) @@ -562,6 +565,8 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, *elts = scm_c_normal01 (SCM_RSTATE (state)); } + scm_array_handle_release (&handle); + return SCM_UNSPECIFIED; } #undef FUNC_NAME |