[MLton-commit] r6762

[Matthew Fluet]

Formatting.
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/loop-invariant.fun

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

Modified: mlton/trunk/mlton/ssa/loop-invariant.fun
===================================================================
--- mlton/trunk/mlton/ssa/loop-invariant.fun	2008-08-19 22:15:45 UTC (rev 6761)
+++ mlton/trunk/mlton/ssa/loop-invariant.fun	2008-08-19 22:15:51 UTC (rev 6762)
@@ -1,4 +1,4 @@
-(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2005, 2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -161,10 +161,10 @@
                                   returns = returns,
                                   start = start})
          end
-      val program = 
+      val program =
          Program.T {datatypes = datatypes,
                     globals = globals,
-                    functions = List.revMap(functions, simplifyFunction), 
+                    functions = List.revMap (functions, simplifyFunction),
                     main = main}
       val _ = Program.clearTop program
    in