-- 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.