* rand.c (rand_init): Oops! Spectacular silliness here

broke the symbol module: two intern calls in consecutive
lines, one for the name without "earmuffs", one with,
leading to the situation that the C code looks for a
dynamic variable that does not exist.

1 files changed, 2 insertions, 3 deletions

diff --git a/rand.c b/rand.c
index 6a2b4dbf..d9f939e3 100644
--- a/rand.c
+++ b/rand.c
@@ -249,7 +249,6 @@ val rnd(val modulus, val state)
 
 void rand_init(void)
 {
-  random_state_s = intern(lit("random-state"), user_package);
-  reg_var(intern(lit("*random-state*"), user_package),
-          make_random_state(num_fast(42)));
+  random_state_s = intern(lit("*random-state*"), user_package);
+  reg_var(random_state_s, make_random_state(num_fast(42)));
 }