mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

(scm_seed_to_random_state, scm_copy_random_state, scm_random):

Browse source 
Added texinfo markup.
This commit is contained in:
Martin Grabmüller 2001-02-17 11:29:16 +00:00
parent a8eac221a7
commit 3b64451459
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/random.c
View file

@ -359,11 +359,11 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0,
"N (exclusive). The values returned have a uniform \n" "N (exclusive). The values returned have a uniform \n"
"distribution.\n" "distribution.\n"
"\n" "\n"
"The optional argument STATE must be of the type produced by\n" "The optional argument @var{state} must be of the type produced\n"
"`seed->random-state'. It defaults to the value of the variable\n" "by @code{seed->random-state}. It defaults to the value of the\n"
"*random-state*. This object is used to maintain the state of\n" "variable @var{*random-state*}. This object is used to maintain\n"
"the pseudo-random-number generator and is altered as a side\n" "the state of the pseudo-random-number generator and is altered\n"
"effect of the random operation.") "as a side effect of the random operation.")
#define FUNC_NAME s_scm_random #define FUNC_NAME s_scm_random
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -386,7 +386,7 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0,
SCM_DEFINE (scm_copy_random_state, "copy-random-state", 0, 1, 0, SCM_DEFINE (scm_copy_random_state, "copy-random-state", 0, 1, 0,
(SCM state), (SCM state),
"Return a copy of the random state STATE.") "Return a copy of the random state @var{state}.")
#define FUNC_NAME s_scm_copy_random_state #define FUNC_NAME s_scm_copy_random_state
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -398,7 +398,7 @@ SCM_DEFINE (scm_copy_random_state, "copy-random-state", 0, 1, 0,
SCM_DEFINE (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), (SCM seed),
"Return a new random state using SEED.") "Return a new random state using @var{seed}.")
#define FUNC_NAME s_scm_seed_to_random_state #define FUNC_NAME s_scm_seed_to_random_state
{ {
if (SCM_NUMBERP (seed)) if (SCM_NUMBERP (seed))