diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-11 14:12:26 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-11 14:12:26 +0000 |
commit | b7ead2aee2a34a071d34fe2a822b3bd6eddedd3c (patch) | |
tree | d937c06be040a26abefc09064af5e3a926ada06c /libguile/random.c | |
parent | b226e5f658a02a8d82b2410e11411ac49b0b0caf (diff) | |
download | guile-b7ead2aee2a34a071d34fe2a822b3bd6eddedd3c.tar.gz |
* Replace calls to SCM_LENGTH.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 10 |
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))); |