diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-21 09:20:52 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-21 09:20:52 +0000 |
| commit | eccc8566187b5ed3701e9dda97aca6da63dd54f0 (patch) | |
| tree | eed41139b1f14a7b9213e39a75134f6735514eb4 | |
| parent | 5ee11b7cc010d1284573c79e600bd223eef403ea (diff) | |
| download | guile-eccc8566187b5ed3701e9dda97aca6da63dd54f0.tar.gz | |
* random.c, random.h (scm_i_make_rstate): New function: Makes
scm_rstate from seed.
(scm_copy_random_state, scm_seed_to_random_state): New functions.
(scm_make_random_state): Removed.
| -rw-r--r-- | libguile/random.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/random.h b/libguile/random.h index 9aa769270..a1710fe7e 100644 --- a/libguile/random.h +++ b/libguile/random.h @@ -92,6 +92,7 @@ extern scm_i_rstate *scm_i_copy_rstate (scm_i_rstate *); /* * Random number library functions */ +extern scm_rstate *scm_i_make_rstate (char *, int); extern double scm_i_uniform01 (scm_rstate *); extern double scm_i_normal01 (scm_rstate *); extern double scm_i_exp1 (scm_rstate *); @@ -110,7 +111,8 @@ extern unsigned char scm_masktab[256]; extern SCM scm_var_random_state; extern SCM scm_random (SCM n, SCM state); -extern SCM scm_make_random_state (SCM state); +extern SCM scm_copy_random_state (SCM state); +extern SCM scm_seed_to_random_state (SCM seed); extern SCM scm_random_uniform (SCM state); extern SCM scm_random_solid_sphere_x (SCM v, SCM state); extern SCM scm_random_hollow_sphere_x (SCM v, SCM state); |