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, 1 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index d96ab8b2..84988206 100644
--- a/lib.c
+++ b/lib.c
@@ -7762,6 +7762,7 @@ int compat_fixup(int compat_ver)
   }
 
   eval_compat_fixup(compat_ver);
+  rand_compat_fixup(compat_ver);
   return 0;
 }