[MLton-commit] r4278

[Stephen Weeks]

Removed MLton.Pointer.free.  I'm not sure why it was there.

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

U   mlton/trunk/basis-library/misc/primitive.sml
U   mlton/trunk/basis-library/mlton/pointer.sig

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

Modified: mlton/trunk/basis-library/misc/primitive.sml
===================================================================
--- mlton/trunk/basis-library/misc/primitive.sml	2005-12-02 07:10:17 UTC (rev 4277)
+++ mlton/trunk/basis-library/misc/primitive.sml	2005-12-02 07:14:25 UTC (rev 4278)
@@ -1255,7 +1255,7 @@
             (* val + = _prim "Pointer_add": t * t -> t; *)
             (* val op < = _prim "Pointer_lt": t * t -> bool; *)
             (* val - = _prim "Pointer_sub": t * t -> t; *)
-            val free = _import "free": t -> unit;
+(*            val free = _import "free": t -> unit; *)
             val getInt8 = _prim "Pointer_getWord8": t * int -> Int8.int;
             val getInt16 = _prim "Pointer_getWord16": t * int -> Int16.int;
             val getInt32 = _prim "Pointer_getWord32": t * int -> Int32.int;

Modified: mlton/trunk/basis-library/mlton/pointer.sig
===================================================================
--- mlton/trunk/basis-library/mlton/pointer.sig	2005-12-02 07:10:17 UTC (rev 4277)
+++ mlton/trunk/basis-library/mlton/pointer.sig	2005-12-02 07:14:25 UTC (rev 4278)
@@ -12,7 +12,7 @@
       val add: t * word -> t
       val compare: t * t -> order
       val diff: t * t -> word
-      val free: t -> unit
+(*      val free: t -> unit *)
       val getInt8: t * int -> Int8.int
       val getInt16: t * int -> Int16.int
       val getInt32: t * int -> Int32.int