made SML/NJ happy;
authorwenzelm
Mon, 10 Jan 2011 16:56:47 +0100
changeset 41494 364f672d8827
parent 41493 f05976d69141
child 41495 f8c11067e124
made SML/NJ happy;
src/Pure/library.ML
--- a/src/Pure/library.ML	Mon Jan 10 16:45:28 2011 +0100
+++ b/src/Pure/library.ML	Mon Jan 10 16:56:47 2011 +0100
@@ -644,7 +644,7 @@
 
 local
   val zero = ord "0";
-  val small = 10000;
+  val small = 10000: int;
   val small_table = Vector.tabulate (small, Int.toString);
 in