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.

1 files changed, 9 insertions, 0 deletions

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));
 }