15.4.1588  src/lib/x-kit/xclient/src/iccc/atom-table.pkg

# atom-table.pkg
#
# hashtables of XATOMS.

# Compiled by:
#     src/lib/x-kit/xclient/xclient-internals.sublib


                                                                        # typelocked_hashtable_g        is from   src/lib/src/typelocked-hashtable-g.pkg
package atom_table
    =
    typelocked_hashtable_g (

        Hash_Key = xtypes::Atom;

        fun hash_value (xtypes::XATOM n)
            =
            n;

        fun same_key (   xtypes::XATOM a1,
                         xtypes::XATOM a2
                     )
            =
            a1 == a2;
    );