GenSymImpl.Mesa
last edited by Spreitzer May 9, 1985 4:30:31 pm PDT
DIRECTORY Atom, GenSym, IO;
GenSymImpl:
CEDAR
MONITOR
IMPORTS Atom, IO
EXPORTS GenSym =
BEGIN
List: TYPE = LIST OF CARDINAL;
gens: List ← NIL;
Gen:
PUBLIC
ENTRY
PROC [prefix:
CHARACTER ← 'A]
RETURNS [a:
ATOM] = {
gens ← CONS[47, gens];
a ← Atom.MakeAtom[IO.PutFR["%g%g", IO.char[prefix], IO.int[LOOPHOLE[gens]]]]};
END.