-- AlpineUserMiscBinderPacifierImpl.mesa
-- Last edited by
--   Kolling on April 27, 1983 3:16 pm

  DIRECTORY
       AlpineEnvironment,
       ClientMap;

AlpineUserMiscBinderPacifierImpl: PROGRAM
  EXPORTS ClientMap =
  
  BEGIN
  
  Conversation: TYPE = AlpineEnvironment.Conversation;
  Principal: TYPE = AlpineEnvironment.Principal;
  
  Register: PUBLIC PROCEDURE [conversation: Conversation, principal: Principal] = BEGIN ERROR; END;

  END.