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;