[MLton-commit] r6967

Vesa Karvonen vesak at mlton.org
Sun Nov 2 01:55:46 PST 2008


Whitespace cleanup.

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

U   mlton/trunk/mlton/atoms/const.fun

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

Modified: mlton/trunk/mlton/atoms/const.fun
===================================================================
--- mlton/trunk/mlton/atoms/const.fun	2008-11-02 01:13:40 UTC (rev 6966)
+++ mlton/trunk/mlton/atoms/const.fun	2008-11-02 09:55:45 UTC (rev 6967)
@@ -6,7 +6,7 @@
  * See the file MLton-LICENSE for details.
  *)
 
-functor Const (S: CONST_STRUCTS): CONST = 
+functor Const (S: CONST_STRUCTS): CONST =
 struct
 
 open S
@@ -29,7 +29,6 @@
                then SOME (WordX.orb (WordX.one ws,
                                      WordX.lshift (WordX.fromIntInf (i, ws),
                                                    WordX.one ws)))
-                          
                else NONE
          end
 
@@ -64,7 +63,7 @@
        | Real r => RealX.layout r
        | Word w => WordX.layout w
        | WordVector v => wrap ("\"", "\"", WordXVector.toString v)
-end      
+end
 
 val toString = Layout.toString o layout
 




More information about the MLton-commit mailing list