src/Tools/random_word.ML
changeset 33513 b2259183e282
parent 32740 9dd0a2f83429
--- a/src/Tools/random_word.ML	Sun Nov 08 13:44:16 2009 +0100
+++ b/src/Tools/random_word.ML	Sun Nov 08 13:56:44 2009 +0100
@@ -18,7 +18,7 @@
   val pick_weighted: (int * 'a) list -> 'a
 end;
 
-structure RandomWord: RANDOM_WORD =
+structure Random_Word: RANDOM_WORD =
 struct
 
 (* random words: 0w0 <= result <= max_word *)