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