[MLton-commit] r6873

Vesa Karvonen vesak at mlton.org
Sat Sep 20 15:08:11 PDT 2008


Formatted to fit in 80 columns.

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

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-09-20 18:09:39 UTC (rev 6872)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2008-09-20 22:08:10 UTC (rev 6873)
@@ -689,7 +689,9 @@
          val char = char
          val bool = iso' word8 (swap Word8.isoInt <--> Bool.isoInt)
          val int =
-             if case Int.precision of NONE => false | SOME n => n <= Word.wordSize
+             if case Int.precision
+                 of NONE => false
+                  | SOME n => n <= Word.wordSize
              then mkFixedInt WordOps.ops Word.isoIntX
              else if isSome Int.precision
              then iso' fixedInt Int.isoFixedInt




More information about the MLton-commit mailing list