<<>> <> <> <> <> <> <> DIRECTORY Rope USING [Text]; AtomPrivate: DEFINITIONS = BEGIN AtomRec: TYPE = RECORD [pName: Rope.Text, propList: REF ANY ¬ NIL, link: ATOM ¬ NIL]; UnsafeMakeAtom: PROC [pName: POINTER TO READONLY TEXT] RETURNS [ATOM]; UnsafeMakeAtomFromString: PROC [pName: STRING] RETURNS [ATOM]; END.