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", "current-pseudo-random-generator",
MZCONFIG_RANDOM_STATE), MZCONFIG_RANDOM_STATE),
env); 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, scheme_register_parameter(current_sched_pseudo_random_generator,
"current-sync-pseudo-random-generator", "current-evt-pseudo-random-generator",
MZCONFIG_SCHEDULER_RANDOM_STATE), MZCONFIG_SCHEDULER_RANDOM_STATE),
env); 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[]) 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), scheme_make_integer(MZCONFIG_SCHEDULER_RANDOM_STATE),
argc, argv, argc, argv,
-1, pseudo_random_generator_p, "pseudo-random-generator", 0); -1, pseudo_random_generator_p, "pseudo-random-generator", 0);