[MLton-commit] r5998

[Vesa Karvonen]

One more special case fixed...

I wish the Basis Library would include functions for converting an IntInf
value to a compact string of bytes and back.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2007-09-02 23:29:10 UTC (rev 5997)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2007-09-03 13:32:28 UTC (rev 5998)
@@ -401,7 +401,7 @@
    in
       fun i2h i =
           if i < 0
-          then IntInf.fmt StringCvt.HEX (makePos8 i)
+          then if i = ~1 then "ff" else IntInf.fmt StringCvt.HEX (makePos8 i)
           else let
                 val s = IntInf.fmt StringCvt.HEX i
                 val (t, f) =