-- PublicErrorImpl.mesa
-- Last edited by
--   Kolling on May 10, 1983 4:41 pm

  DIRECTORY
    AlpineDebug,
    AlpineEnvironment
       USING [LockFailure, NeededAccess, OperationFailure, UnknownType],
    AlpineFile,
    AlpineOwner,
    AlpineTransaction,
    AlpineVolume;

PublicErrorImpl: PROGRAM
  EXPORTS AlpineDebug, AlpineFile, AlpineOwner, AlpineTransaction,
     AlpineVolume =
  
  BEGIN
  
  AccessFailed: PUBLIC ERROR [missingAccess: AlpineEnvironment.NeededAccess] = CODE;
  LockFailed: PUBLIC ERROR [why: AlpineEnvironment.LockFailure] = CODE;
  OperationFailed: PUBLIC ERROR [why: AlpineEnvironment.OperationFailure] = CODE;
  StaticallyInvalid: PUBLIC ERROR = CODE;
  Unknown: PUBLIC ERROR [what: AlpineEnvironment.UnknownType] = CODE;
  PossiblyDamaged: PUBLIC SIGNAL = CODE;

  
  END.