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 *)