suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

current-sync-random-number-generator -> current-evt-random-...

Browse Source 
svn: r1396
This commit is contained in:
Matthew Flatt 2005-11-24 17:26:24 +00:00
parent 97b8442af2
commit dae23e536c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/numstr.c
View File

@ -145,9 +145,9 @@ void scheme_init_numstr(Scheme_Env *env)
"current-pseudo-random-generator",
MZCONFIG_RANDOM_STATE),
env);
scheme_add_global_constant("current-sync-pseudo-random-generator",
scheme_add_global_constant("current-evt-pseudo-random-generator",
scheme_register_parameter(current_sched_pseudo_random_generator,
"current-sync-pseudo-random-generator",
"current-evt-pseudo-random-generator",
MZCONFIG_SCHEDULER_RANDOM_STATE),
env);
@ -2078,7 +2078,7 @@ static Scheme_Object *current_pseudo_random_generator(int argc, Scheme_Object *a
static Scheme_Object *current_sched_pseudo_random_generator(int argc, Scheme_Object *argv[])
{
return scheme_param_config("current-sync-pseudo-random-generator",
return scheme_param_config("current-evt-pseudo-random-generator",
scheme_make_integer(MZCONFIG_SCHEDULER_RANDOM_STATE),
argc, argv,
-1, pseudo_random_generator_p, "pseudo-random-generator", 0);