-- Cedar Abstract Machine: Private for AMProcess to call AMEvent

-- AMEventsPrivate.mesa

-- Andrew Birrell October 22, 1982 1:14 pm

DIRECTORY
AMEvents   USING[ Outcome ],
Rope     USING[ ROPE ],
RTBasic    USING[ TV ];

AMEventsPrivate: DEFINITIONS =

BEGIN

Outcome: TYPE = AMEvents.Outcome;

ProvokeProcessEvent: PROC[
p: RTBasic.TV,
frame: RTBasic.TV,
msg: Rope.ROPE]
RETURNS[outcome: Outcome];

END.