Random states of type random-state, not *random-state*.

* lib.c (compat_fixup): Call rand_compat_fixup.

* rand.c (random_state_var_s): New global symbol variable.
(rand_compat_fixup): New static function.
(rand_init): Initialize random_state_var_s by intering
the earmuffed symbol *random-state*. Initialize random_state_s
to the non-earmuffed symbol random-state.

* rand.h (random_state_var_s): Declared.
(random_state): Macro updated to look up the special
variable using random_state_var_s, rather than random_state_s.
(rand_compat_fixup): Declared.

1 files changed, 3 insertions, 2 deletions

diff --git a/rand.h b/rand.h
index 23c4167a..d68be1f9 100644
--- a/rand.h
+++ b/rand.h
@@ -24,11 +24,12 @@
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
-#define random_state (deref(lookup_var_l(nil, random_state_s)))
-extern val random_state_s;
+#define random_state (deref(lookup_var_l(nil, random_state_var_s)))
+extern val random_state_s, random_state_var_s;
 val make_random_state(val seed);
 val random_state_p(val obj);
 val random_fixnum(val state);
 val random(val state, val modulus);
 val rnd(val modulus, val state);
+void rand_compat_fixup(int compat_ver);
 void rand_init(void);