[MLton-commit] r4709

[Matthew Fluet]

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

U   mlton/trunk/mlton/ssa/deep-flatten.fun

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

Modified: mlton/trunk/mlton/ssa/deep-flatten.fun
===================================================================
--- mlton/trunk/mlton/ssa/deep-flatten.fun	2006-09-27 16:04:58 UTC (rev 4708)
+++ mlton/trunk/mlton/ssa/deep-flatten.fun	2006-09-27 17:11:29 UTC (rev 4709)
@@ -830,7 +830,6 @@
                      NONE => bug ()
                    | SOME y => y
          end
-      fun replaceVars xs = Vector.map (xs, replaceVar)
       fun transformBind {exp, ty, var}: Statement.t list =
          let
             fun simpleTree () = Option.app (var, simpleVarTree)
@@ -910,7 +909,7 @@
                                            end
                                   end
                          end)
-             | PrimApp {args, prim} => simple ()
+             | PrimApp _ => simple ()
              | Select {base, offset} =>
                   (case var of
                       NONE => none ()