mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* random.c (scm_c_default_rstate): Use SCM_VARIABLE_REF to access

Browse source 
scm_var_random_state.
This commit is contained in:
Mikael Djurfeldt 2003-04-06 13:48:57 +00:00
parent 372691d8ac
commit c5f268f895
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/random.c
View file

@ -167,7 +167,7 @@ scm_t_rstate *
scm_c_default_rstate ()
#define FUNC_NAME "scm_c_default_rstate"
{
SCM state = SCM_CDR (scm_var_random_state);
SCM state = SCM_VARIABLE_REF (scm_var_random_state);
if (!SCM_RSTATEP (state))
SCM_MISC_ERROR ("*random-state* contains bogus random state", SCM_EOL);
return SCM_RSTATE (state);