-- AtomsPrivate.Mesa
-- last edited May 20, 1982 10:34 am by Paul Rovner

DIRECTORY
  Rope USING[ROPE, Text];

AtomsPrivate: DEFINITIONS = BEGIN

-- TYPES
  AtomRec: TYPE = RECORD[pName: Rope.Text,
                                  propList: REF ANY _ NIL,
                                  link: ATOM _ NIL];

-- PROCEDURES
  GetAtom: PROC[pName: Rope.ROPE] RETURNS[ATOM];

  UnsafeMakeAtom: PROC[pName: LONG POINTER TO READONLY TEXT]
        RETURNS[ATOM];

  EnumerateAtoms: PROC[callee: PROC[ATOM] RETURNS[stop: BOOLEAN]]
        RETURNS[ATOM--NIL if was not stopped--];

END.