[MLton-commit] r6745

[Matthew Fluet]

Missing SSA type property destroy.
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/useless.fun

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

Modified: mlton/trunk/mlton/ssa/useless.fun
===================================================================
--- mlton/trunk/mlton/ssa/useless.fun	2008-08-19 22:13:35 UTC (rev 6744)
+++ mlton/trunk/mlton/ssa/useless.fun	2008-08-19 22:13:46 UTC (rev 6745)
@@ -665,8 +665,8 @@
       val varExists = Value.isUseful o value
       val unitVar = Var.newString "unit"
       val bogusGlobals: Statement.t list ref = ref []
-      val {get = bogus, ...} =
-         Property.get
+      val {get = bogus, destroy, ...} =
+         Property.destGet
          (Type.plist,
           Property.initFun
           (fn ty =>
@@ -1047,6 +1047,7 @@
                                globals = globals,
                                functions = functions,
                                main = main}
+      val _ = destroy ()
       val _ = Program.clearTop program
    in
       program