summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-03 15:06:12 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-03 15:06:12 +0000
commitd9a67fc441a066dbd352324b9b1a4a082d4ba818 (patch)
tree412f59d015fb7b090827ca886160462a416b9c5e /libguile/random.c
parent8672c728f0eac55444097c333fb4675eb6dde368 (diff)
downloadguile-d9a67fc441a066dbd352324b9b1a4a082d4ba818.tar.gz
(scm_make_real, scm_num2dbl, scm_float2num, scm_double2num):
Discouraged by moving to discouraged.h and discouraged.c. Replaced all uses with scm_from_double. (scm_num2float, scm_num2double): Discouraged by moving prototype to discouraged.h and rewriting in terms of scm_to_double. Replaced all uses with scm_to_double.
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/random.c b/libguile/random.c
index e98794ca4..991900af3 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -357,8 +357,8 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0,
}
SCM_VALIDATE_NIM (1, n);
if (SCM_REALP (n))
- return scm_make_real (SCM_REAL_VALUE (n)
- * scm_c_uniform01 (SCM_RSTATE (state)));
+ return scm_from_double (SCM_REAL_VALUE (n)
+ * scm_c_uniform01 (SCM_RSTATE (state)));
if (!SCM_BIGP (n))
SCM_WRONG_TYPE_ARG (1, n);
@@ -400,7 +400,7 @@ SCM_DEFINE (scm_random_uniform, "random:uniform", 0, 1, 0,
if (SCM_UNBNDP (state))
state = SCM_VARIABLE_REF (scm_var_random_state);
SCM_VALIDATE_RSTATE (1, state);
- return scm_make_real (scm_c_uniform01 (SCM_RSTATE (state)));
+ return scm_from_double (scm_c_uniform01 (SCM_RSTATE (state)));
}
#undef FUNC_NAME
@@ -415,7 +415,7 @@ SCM_DEFINE (scm_random_normal, "random:normal", 0, 1, 0,
if (SCM_UNBNDP (state))
state = SCM_VARIABLE_REF (scm_var_random_state);
SCM_VALIDATE_RSTATE (1, state);
- return scm_make_real (scm_c_normal01 (SCM_RSTATE (state)));
+ return scm_from_double (scm_c_normal01 (SCM_RSTATE (state)));
}
#undef FUNC_NAME
@@ -517,7 +517,7 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
n = scm_to_int (scm_uniform_vector_length (v));
if (SCM_VECTORP (v))
while (--n >= 0)
- SCM_VECTOR_SET (v, n, scm_make_real (scm_c_normal01 (SCM_RSTATE (state))));
+ SCM_VECTOR_SET (v, n, scm_from_double (scm_c_normal01 (SCM_RSTATE (state))));
else
while (--n >= 0)
((double *) SCM_VELTS (v))[n] = scm_c_normal01 (SCM_RSTATE (state));
@@ -537,7 +537,7 @@ SCM_DEFINE (scm_random_exp, "random:exp", 0, 1, 0,
if (SCM_UNBNDP (state))
state = SCM_VARIABLE_REF (scm_var_random_state);
SCM_VALIDATE_RSTATE (1, state);
- return scm_make_real (scm_c_exp1 (SCM_RSTATE (state)));
+ return scm_from_double (scm_c_exp1 (SCM_RSTATE (state)));
}
#undef FUNC_NAME