[MLton-commit] r6761

[Matthew Fluet]

Use faster List.revMap.
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/introduce-loops.fun

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

Modified: mlton/trunk/mlton/ssa/introduce-loops.fun
===================================================================
--- mlton/trunk/mlton/ssa/introduce-loops.fun	2008-08-19 22:15:40 UTC (rev 6760)
+++ mlton/trunk/mlton/ssa/introduce-loops.fun	2008-08-19 22:15:45 UTC (rev 6761)
@@ -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.
  *
@@ -30,7 +30,7 @@
 fun introduceLoops (Program.T {datatypes, globals, functions, main}) =
    let
       val functions =
-         List.map
+         List.revMap
          (functions, fn f =>
           let
              val {args, blocks, mayInline, name, raises, returns, start} =