From cd688dfd65e46376045cf396b2251b54dd42da4e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 8 Mar 2014 00:35:39 -0800 Subject: * 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. --- ChangeLog | 8 ++++++++ rand.c | 5 ++--- 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 + + * 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 * 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))); } -- cgit v1.2.3