[MLton-commit] r6358

[Matthew Fluet]

Drop unused variables
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/poly-hash.fun

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

Modified: mlton/trunk/mlton/ssa/poly-hash.fun
===================================================================
--- mlton/trunk/mlton/ssa/poly-hash.fun	2008-01-27 20:10:15 UTC (rev 6357)
+++ mlton/trunk/mlton/ssa/poly-hash.fun	2008-01-27 21:32:36 UTC (rev 6358)
@@ -465,10 +465,6 @@
                      val maxstepTy = Type.tuple (Vector.new2 (seqIndexTy, seqIndexTy)) 
                      val maxstep = (Var.newNoname (), maxstepTy)
                      val dmaxstep = Dexp.var maxstep
-                     val max = (Var.newNoname (), seqIndexTy)
-                     val dmax = Dexp.var max
-                     val step = (Var.newNoname (), seqIndexTy)
-                     val dstep = Dexp.var step
                      val body =
                         Dexp.lett
                         {decs = [{var = #1 len, exp =