atom-binary-set.sml

这是我们参加06年全国开源软件的竞赛作品

(* atom-binary-map.sml
 *
 * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.
 *
 * Functional sets of atoms.
 *)

structure AtomBinarySet =
  BinarySetFn (
    struct
      type ord_key = Atom.atom
      val compare = Atom.compare
    end)