# HG changeset patch
# User wenzelm
# Date 1294675007 -3600
# Node ID 364f672d88279a24773d31160a7f461204b9ebde
# Parent  f05976d691419e05b92099f5b4449a59f76fb3fd
made SML/NJ happy;

diff -r f05976d69141 -r 364f672d8827 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