summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-06 18:56:34 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-06 18:56:34 +0000
commitc8857a4db44ba4242ae05f57fe89ffd4e3971776 (patch)
tree3320a9e67ffbfd694c63a16fa87dc00fd8d35009 /libguile/random.c
parentfea99690f2e31b08d4261d91509c6fed7d945125 (diff)
downloadguile-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.c7
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