167 |
scm_c_default_rstate () |
scm_c_default_rstate () |
168 |
#define FUNC_NAME "scm_c_default_rstate" |
#define FUNC_NAME "scm_c_default_rstate" |
169 |
{ |
{ |
170 |
SCM state = SCM_CDR (scm_var_random_state); |
SCM state = SCM_VARIABLE_REF (scm_var_random_state); |
171 |
if (!SCM_RSTATEP (state)) |
if (!SCM_RSTATEP (state)) |
172 |
SCM_MISC_ERROR ("*random-state* contains bogus random state", SCM_EOL); |
SCM_MISC_ERROR ("*random-state* contains bogus random state", SCM_EOL); |
173 |
return SCM_RSTATE (state); |
return SCM_RSTATE (state); |