src/Pure/ML-Systems/smlnj-ptreql.ML

Fixed the bugs introduced by the last commit! Output is now *identical* to that
produced by the old version, based on a-lists.

(*  Title:      $Id$
    Author:     Lawrence C Paulson

Pointer Equality: for Standard ML of New Jersey 110.49 or later.

Thanks to Matthias Blume for providing InlineT.ptreql!
*)

CM.autoload "$smlnj/init/init.cmi";
val pointer_eq = InlineT.ptreql;