[MLton-commit] r6649

[Matthew Fluet]

Unused variable
----------------------------------------------------------------------

U   mlton/trunk/mlton/elaborate/elaborate-core.fun

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

Modified: mlton/trunk/mlton/elaborate/elaborate-core.fun
===================================================================
--- mlton/trunk/mlton/elaborate/elaborate-core.fun	2008-06-09 02:03:36 UTC (rev 6648)
+++ mlton/trunk/mlton/elaborate/elaborate-core.fun	2008-06-10 00:29:42 UTC (rev 6649)
@@ -1288,7 +1288,7 @@
                 val (args, decs) =
                    Vector.unzip
                    (Vector.mapi
-                    (args, fn (i, {ctype, name, ...}) =>
+                    (args, fn (i, {name, ...}) =>
                      let
                         val x =
                            Var.fromSymbol