[MLton-commit] r5777

[Matthew Fluet]

Unused variables
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/prepasses.fun
U   mlton/trunk/mlton/ssa/prepasses2.fun

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

Modified: mlton/trunk/mlton/ssa/prepasses.fun
===================================================================
--- mlton/trunk/mlton/ssa/prepasses.fun	2007-07-17 15:17:21 UTC (rev 5776)
+++ mlton/trunk/mlton/ssa/prepasses.fun	2007-07-17 16:08:42 UTC (rev 5777)
@@ -208,7 +208,7 @@
 structure Order =
 struct
 
-fun orderFunctions (p as Program.T {globals, datatypes, functions, main}) =
+fun orderFunctions (p as Program.T {globals, datatypes, main, ...}) =
    let
       val functions = ref []
       val () =

Modified: mlton/trunk/mlton/ssa/prepasses2.fun
===================================================================
--- mlton/trunk/mlton/ssa/prepasses2.fun	2007-07-17 15:17:21 UTC (rev 5776)
+++ mlton/trunk/mlton/ssa/prepasses2.fun	2007-07-17 16:08:42 UTC (rev 5777)
@@ -60,7 +60,7 @@
 structure Order = 
 struct
 
-fun orderFunctions (p as Program.T {globals, datatypes, functions, main}) =
+fun orderFunctions (p as Program.T {globals, datatypes, main, ...}) =
    let
       val functions = ref []
       val () =