diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | rand.c | 5 |
2 files changed, 10 insertions, 3 deletions
@@ -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; @@ -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))); } |