From d0c176d3cc719d136cd3c19eb1d057193300b407 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 28 Apr 2016 06:20:51 -0700 Subject: Move PRNG-related initialization to rand.c * eval.c (eval_init): Remove registration of make-random-state, random-state-get-vec, random-state-p, random-fixnup, random, and rand. * rand.c (rand_init): Move registrations removed from eval_init here. --- eval.c | 8 -------- rand.c | 9 +++++++++ 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/eval.c b/eval.c index 7c8d9b45..ebfc9ffe 100644 --- a/eval.c +++ b/eval.c @@ -5286,14 +5286,6 @@ void eval_init(void) reg_fun(intern(lit("functionp"), user_package), func_n1(functionp)); reg_fun(intern(lit("interp-fun-p"), user_package), func_n1(interp_fun_p)); - reg_fun(intern(lit("make-random-state"), user_package), func_n1o(make_random_state, 0)); - reg_fun(intern(lit("random-state-get-vec"), user_package), - func_n1o(random_state_get_vec, 0)); - reg_fun(intern(lit("random-state-p"), user_package), func_n1(random_state_p)); - reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 0)); - reg_fun(intern(lit("random"), user_package), func_n2(random)); - reg_fun(intern(lit("rand"), user_package), func_n2o(rnd, 1)); - reg_fun(intern(lit("range"), user_package), func_n3o(range, 0)); reg_fun(intern(lit("range*"), user_package), func_n3o(range_star, 0)); reg_fun(generate_s, func_n2(generate)); diff --git a/rand.c b/rand.c index ccf3846e..7509c237 100644 --- a/rand.c +++ b/rand.c @@ -299,4 +299,13 @@ void rand_init(void) random_state_var_s = intern(lit("*random-state*"), user_package); random_state_s = intern(lit("random-state"), user_package); reg_var(random_state_var_s, make_random_state(num_fast(42))); + + reg_fun(intern(lit("make-random-state"), user_package), + func_n1o(make_random_state, 0)); + reg_fun(intern(lit("random-state-get-vec"), user_package), + func_n1o(random_state_get_vec, 0)); + reg_fun(intern(lit("random-state-p"), user_package), func_n1(random_state_p)); + reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 0)); + reg_fun(intern(lit("random"), user_package), func_n2(random)); + reg_fun(intern(lit("rand"), user_package), func_n2o(rnd, 1)); } -- cgit v1.2.3