<> <> <> <> <> <> DIRECTORY AlpineEnvironment; ConcreteTransID: DEFINITIONS = BEGIN VolumeID: TYPE = AlpineEnvironment.VolumeID; TransID: TYPE = MACHINE DEPENDENT RECORD [ randomBits: INT, idOnFileStore: INT, fileStore: VolumeID]; Equal: PROC [a, b: TransID] RETURNS [equal: BOOL] = INLINE { RETURN [(a.randomBits = b.randomBits) AND (a.idOnFileStore = b.idOnFileStore) AND (a.fileStore = b.fileStore)] }; END. CHANGE LOG. <> <> <> <> <<>>