summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-17 17:22:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-17 17:22:22 +0000
commitf160e709073df53cbb360166e07f815c15694429 (patch)
tree5aa886bb3080ffd97f435c78e7ffca5fd5e43013 /libguile/random.c
parent7719cbe9896d7e554dcd60b5400023f81bcbabdd (diff)
downloadguile-f160e709073df53cbb360166e07f815c15694429.tar.gz
(scm_random_solid_sphere_x): Use scm_c_generalized_vector_length
instead of scm_uniform_vector_length.
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c
index fde339adb..ec00d5ccf 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -506,7 +506,7 @@ SCM_DEFINE (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
scm_random_normal_vector_x (v, state);
vector_scale_x (v,
pow (scm_c_uniform01 (SCM_RSTATE (state)),
- 1.0 / scm_to_int (scm_uniform_vector_length (v)))
+ 1.0 / scm_c_generalized_vector_length (v))
/ sqrt (vector_sum_squares (v)));
return SCM_UNSPECIFIED;
}