[MLton-commit] r6094

[Vesa Karvonen]

Workaround for lack of overloading of ~ for words in MLKit.

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

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-10-26 11:12:43 UTC (rev 6093)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2007-10-26 11:54:24 UTC (rev 6094)
@@ -371,7 +371,7 @@
           i + IntInf.<<
                  (1,
                   Word.andb (Word.fromInt (IntInf.log2 (IntInf.notb i)) + 0w9,
-                             ~ 0w8))
+                             Word.~ 0w8))
    in
       fun i2h i =
           if i < 0