[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog random.c
From: |
Dirk Herrmann |
Subject: |
guile/guile-core/libguile ChangeLog random.c |
Date: |
Wed, 11 Oct 2000 07:12:27 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Dirk Herrmann <address@hidden> 00/10/11 07:12:26
Modified files:
guile-core/libguile: ChangeLog random.c
Log message:
* Replace calls to SCM_LENGTH.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1142&r2=1.1143
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/random.c.diff?r1=1.31&r2=1.32
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1142
guile/guile-core/libguile/ChangeLog:1.1143
--- guile/guile-core/libguile/ChangeLog:1.1142 Wed Oct 11 05:50:53 2000
+++ guile/guile-core/libguile/ChangeLog Wed Oct 11 07:12:26 2000
@@ -1,5 +1,14 @@
2000-10-11 Dirk Herrmann <address@hidden>
+ * random.c (scm_seed_to_random_state): Replace SCM_LENGTH with
+ the appropriate SCM_<type>_LENGTH macro.
+
+ (vector_scale, vector_sum_squares, scm_random_solid_sphere_x,
+ scm_random_normal_vector_x): Use scm_uniform_vector_length to
+ determine the length of a vector object generically.
+
+2000-10-11 Dirk Herrmann <address@hidden>
+
* ramap.c (scm_array_fill_int, scm_array_index_map_x): Replace
SCM_LENGTH with the appropriate SCM_<type>_LENGTH macro.
Index: guile/guile-core/libguile/random.c
diff -u guile/guile-core/libguile/random.c:1.31
guile/guile-core/libguile/random.c:1.32
--- guile/guile-core/libguile/random.c:1.31 Thu Jun 29 08:54:58 2000
+++ guile/guile-core/libguile/random.c Wed Oct 11 07:12:26 2000
@@ -405,7 +405,7 @@
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 @@
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 @@
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_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 @@
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)));
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile ChangeLog random.c,
Dirk Herrmann <=