<> <> <> <> <<>> DIRECTORY ExpressTree; ExpressProc: CEDAR DEFINITIONS ~ { XTree: TYPE ~ ExpressTree.XTree; Token: TYPE ~ ATOM; --Maybe enumerated later...see ExpressProcDoc.tioga for list of currently usable tokens. NoProcedureAvailable: ERROR; IllegalToken: ERROR; ANYPROC: TYPE ~ PROC ANY RETURNS ANY; GetProc: PROC [fcn: XTree, oldProc: ANYPROC _ NIL] RETURNS [proc: ANYPROC]; <> <> <> <> <> <<>> FreeProcedure: PROC [proc: ANYPROC]; <> <> }.