[MLton-commit] r6997

[Ville Laurikari]

Unused variable.

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

U   mlton/trunk/mlton/main/main.fun

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

Modified: mlton/trunk/mlton/main/main.fun
===================================================================
--- mlton/trunk/mlton/main/main.fun	2008-12-09 11:31:28 UTC (rev 6996)
+++ mlton/trunk/mlton/main/main.fun	2008-12-09 17:42:16 UTC (rev 6997)
@@ -1264,7 +1264,7 @@
                         in
                            ()
                         end
-                  fun mkOutputO (c: Counter.t, input: File.t): File.t =
+                  fun mkOutputO (c: Counter.t, _): File.t =
                      if stop = Place.O orelse !keepO
                         then
                            if !keepGenerated