--- a/src/Tools/Metis/metis.ML Wed Sep 15 10:26:09 2010 +0200
+++ b/src/Tools/Metis/metis.ML Wed Sep 15 10:43:57 2010 +0200
@@ -179,7 +179,7 @@
(* Pointer equality using the run-time system. *)
(* ------------------------------------------------------------------------- *)
-fun pointerEqual (x : 'a, y : 'a) = PolyML.pointerEq(x,y);
+fun pointerEqual (x : 'a, y : 'a) = pointer_eq (x, y) (* MODIFIED by Jasmin Blanchette *)
(* ------------------------------------------------------------------------- *)
(* Timing function applications. *)