/[guile]/guile/guile-core/libguile/random.c
ViewVC logotype

Diff of /guile/guile-core/libguile/random.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by mdj, Sun Apr 6 09:41:07 2003 UTC revision 1.58 by mdj, Sun Apr 6 13:48:57 2003 UTC
# Line 167  scm_t_rstate * Line 167  scm_t_rstate *
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);

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26