[MLton-commit] r6473

[Vesa Karvonen]

Now word8 is the most basic element.
----------------------------------------------------------------------

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	2008-03-14 00:34:25 UTC (rev 6472)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2008-03-14 00:44:49 UTC (rev 6473)
@@ -694,7 +694,7 @@
                         else intInf
 
          val char = char
-         val bool = iso' char (swap Char.isoInt <--> Bool.isoInt)
+         val bool = iso' word8 (swap Word8.isoInt <--> Bool.isoInt)
          val int =
              if case Int.precision of NONE => false | SOME n => n <= Word.wordSize
              then mkFixedInt WordOps.ops Word.isoIntX