summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-11 14:12:26 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-11 14:12:26 +0000
commitb7ead2aee2a34a071d34fe2a822b3bd6eddedd3c (patch)
treed937c06be040a26abefc09064af5e3a926ada06c /libguile/random.c
parentb226e5f658a02a8d82b2410e11411ac49b0b0caf (diff)
downloadguile-b7ead2aee2a34a071d34fe2a822b3bd6eddedd3c.tar.gz
* Replace calls to SCM_LENGTH.
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/random.c b/libguile/random.c
index 28c94d33c..6467bb8e3 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -405,7 +405,7 @@ SCM_DEFINE (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
seed = scm_number_to_string (seed, SCM_UNDEFINED);
SCM_VALIDATE_STRING (1,seed);
return make_rstate (scm_c_make_rstate (SCM_ROCHARS (seed),
- SCM_LENGTH (seed)));
+ SCM_STRING_LENGTH (seed)));
}
#undef FUNC_NAME
@@ -442,7 +442,7 @@ SCM_DEFINE (scm_random_normal, "random:normal", 0, 1, 0,
static void
vector_scale (SCM v, double c)
{
- int n = SCM_LENGTH (v);
+ int n = SCM_INUM (scm_uniform_vector_length (v));
if (SCM_VECTORP (v))
while (--n >= 0)
SCM_REAL_VALUE (SCM_VELTS (v)[n]) *= c;
@@ -455,7 +455,7 @@ static double
vector_sum_squares (SCM v)
{
double x, sum = 0.0;
- int n = SCM_LENGTH (v);
+ int n = SCM_INUM (scm_uniform_vector_length (v));
if (SCM_VECTORP (v))
while (--n >= 0)
{
@@ -494,7 +494,7 @@ SCM_DEFINE (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
scm_random_normal_vector_x (v, state);
vector_scale (v,
pow (scm_c_uniform01 (SCM_RSTATE (state)),
- 1.0 / SCM_LENGTH (v))
+ 1.0 / SCM_INUM (scm_uniform_vector_length (v)))
/ sqrt (vector_sum_squares (v)));
return SCM_UNSPECIFIED;
}
@@ -535,7 +535,7 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
if (SCM_UNBNDP (state))
state = SCM_CDR (scm_var_random_state);
SCM_VALIDATE_RSTATE (2,state);
- n = SCM_LENGTH (v);
+ n = SCM_INUM (scm_uniform_vector_length (v));
if (SCM_VECTORP (v))
while (--n >= 0)
SCM_VELTS (v)[n] = scm_make_real (scm_c_normal01 (SCM_RSTATE (state)));