summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
commita1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch)
tree99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/random.c
parentfb764465068f84e3ab047c45792ffc3026e5505a (diff)
downloadguile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/random.c b/libguile/random.c
index ddcdccd37..b5adcbba1 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -350,7 +350,7 @@ free_rstate (SCM rstate)
SCM_GLOBAL_VCELL_INIT (scm_var_random_state, "*random-state*", scm_seed_to_random_state (scm_makfrom0str ("URL:http://stat.fsu.edu/~geo/diehard.html")));
-GUILE_PROC (scm_random, "random", 1, 1, 0,
+SCM_DEFINE (scm_random, "random", 1, 1, 0,
(SCM n, SCM state),
"")
#define FUNC_NAME s_scm_random
@@ -373,7 +373,7 @@ GUILE_PROC (scm_random, "random", 1, 1, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_copy_random_state, "copy-random-state", 0, 1, 0,
+SCM_DEFINE (scm_copy_random_state, "copy-random-state", 0, 1, 0,
(SCM state),
"")
#define FUNC_NAME s_scm_copy_random_state
@@ -385,7 +385,7 @@ GUILE_PROC (scm_copy_random_state, "copy-random-state", 0, 1, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
+SCM_DEFINE (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
(SCM seed),
"")
#define FUNC_NAME s_scm_seed_to_random_state
@@ -398,7 +398,7 @@ GUILE_PROC (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_random_uniform, "random:uniform", 0, 1, 0,
+SCM_DEFINE (scm_random_uniform, "random:uniform", 0, 1, 0,
(SCM state),
"")
#define FUNC_NAME s_scm_random_uniform
@@ -410,7 +410,7 @@ GUILE_PROC (scm_random_uniform, "random:uniform", 0, 1, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_random_normal, "random:normal", 0, 1, 0,
+SCM_DEFINE (scm_random_normal, "random:normal", 0, 1, 0,
(SCM state),
"")
#define FUNC_NAME s_scm_random_normal
@@ -461,7 +461,7 @@ vector_sum_squares (SCM v)
* distribution r^n; i.e., u=r^n is uniform [0,1], so r can be
* generated as r=u^(1/n).
*/
-GUILE_PROC (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
+SCM_DEFINE (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
(SCM v, SCM state),
"")
#define FUNC_NAME s_scm_random_solid_sphere_x
@@ -479,7 +479,7 @@ GUILE_PROC (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
}
#undef FUNC_NAME
-GUILE_PROC (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0,
+SCM_DEFINE (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0,
(SCM v, SCM state),
"")
#define FUNC_NAME s_scm_random_hollow_sphere_x
@@ -495,7 +495,7 @@ GUILE_PROC (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0,
#undef FUNC_NAME
-GUILE_PROC (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
+SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
(SCM v, SCM state),
"")
#define FUNC_NAME s_scm_random_normal_vector_x
@@ -518,7 +518,7 @@ GUILE_PROC (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
#endif /* HAVE_ARRAYS */
-GUILE_PROC (scm_random_exp, "random:exp", 0, 1, 0,
+SCM_DEFINE (scm_random_exp, "random:exp", 0, 1, 0,
(SCM state),
"")
#define FUNC_NAME s_scm_random_exp