[MLton-commit] r7238

[Wesley Terpstra]

Quell warning


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

U   mlton/branches/llvm/mlton/backend/backend.fun

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

Modified: mlton/branches/llvm/mlton/backend/backend.fun
===================================================================
--- mlton/branches/llvm/mlton/backend/backend.fun	2009-10-08 15:57:23 UTC (rev 7237)
+++ mlton/branches/llvm/mlton/backend/backend.fun	2009-10-08 18:35:23 UTC (rev 7238)
@@ -210,7 +210,7 @@
                                 thunk = fn () => SsaToRssa.convert (program, 
                                                                     codegen),
                                 typeCheck = R.Program.typeCheck}
-      val (program, makeProfileInfo) =
+      val (program, _) =
          Control.passTypeCheck
          {display = Control.Layouts (fn ((program, _), output) =>
                                      Rssa.Program.layouts (program, output)),