src/Tools/WWW_Find/scgi_req.ML
changeset 41491 a2ad5b824051
parent 40152 51e026049e4d
child 43703 c37a1f29bbc0
--- a/src/Tools/WWW_Find/scgi_req.ML	Mon Jan 10 15:30:17 2011 +0100
+++ b/src/Tools/WWW_Find/scgi_req.ML	Mon Jan 10 15:45:46 2011 +0100
@@ -80,7 +80,7 @@
     val nulls = ~1 :: (Word8Vector.foldri find_nulls [] vec);
 
     fun pr NONE = "NONE"
-      | pr (SOME i) = "SOME " ^ Int.toString i;
+      | pr (SOME i) = "SOME " ^ string_of_int i;
 
     fun hd_diff (i1::i2::_) = SOME (i2 - i1 - 1)
       | hd_diff _ = NONE;