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