* 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.

2 files changed, 10 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 4ff48142..32822035 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2014-03-08  Kaz Kylheku  <kaz@kylheku.com>
+
+	* 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.
+
 2014-03-07  Kaz Kylheku  <kaz@kylheku.com>
 
 	* match.c (LOG_MATCH, LOG_MISMATCH): Wouldn't you know it;
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)));
 }