src/Pure/ML-Systems/smlnj-ptreql.ML
author wenzelm
Wed, 27 Sep 2006 23:41:10 +0200
changeset 20745 c35b225a437e
parent 16528 25a7459d4d4a
permissions -rw-r--r--
Compatibility wrapper for Poly/ML 4.9.1.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
16528
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     1
(*  Title:      $Id$
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     2
    Author:     Lawrence C Paulson
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     3
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     4
Pointer Equality: for Standard ML of New Jersey 110.49 or later.
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     5
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     6
Thanks to Matthias Blume for providing InlineT.ptreql!
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     7
*)
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     8
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
     9
CM.autoload "$smlnj/init/init.cmi";
25a7459d4d4a pointer equality for sml/nj
paulson
parents:
diff changeset
    10
val pointer_eq = InlineT.ptreql;