[MLton-commit] r7070

[Matthew Fluet]

Peform GC at MLton.GC.pack
----------------------------------------------------------------------

U   mlton/trunk/lib/mlton-stubs-for-polyml/mlton.sml
U   mlton/trunk/lib/mlton-stubs-for-smlnj/mlton.sml

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

Modified: mlton/trunk/lib/mlton-stubs-for-polyml/mlton.sml
===================================================================
--- mlton/trunk/lib/mlton-stubs-for-polyml/mlton.sml	2009-04-08 12:33:11 UTC (rev 7069)
+++ mlton/trunk/lib/mlton-stubs-for-polyml/mlton.sml	2009-04-08 12:33:16 UTC (rev 7070)
@@ -16,8 +16,8 @@
          end
       structure GC =
          struct
-            fun collect () = ()
+            fun collect () = PolyML.fullGC ()
             fun setMessages (b : bool) = ()
-            fun pack () = ()
+            fun pack () = collect ()
          end
    end

Modified: mlton/trunk/lib/mlton-stubs-for-smlnj/mlton.sml
===================================================================
--- mlton/trunk/lib/mlton-stubs-for-smlnj/mlton.sml	2009-04-08 12:33:11 UTC (rev 7069)
+++ mlton/trunk/lib/mlton-stubs-for-smlnj/mlton.sml	2009-04-08 12:33:16 UTC (rev 7070)
@@ -18,6 +18,6 @@
          struct
             fun collect () = SMLofNJ.Internals.GC.doGC 8
             fun setMessages b = SMLofNJ.Internals.GC.messages b
-            fun pack () = ()
+            fun pack () = collect ()
          end
    end