From f160e709073df53cbb360166e07f815c15694429 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 17 Jan 2005 17:22:22 +0000 Subject: [PATCH] (scm_random_solid_sphere_x): Use scm_c_generalized_vector_length instead of scm_uniform_vector_length. --- libguile/random.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; }