Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Integer; PROCEDURE IntPair Compare (p1, p2: T): [-1..1] = BEGIN RETURN Integer.Compare(p1.i, p2.i) END Compare; PROCEDURECompareJ (p1, p2: T): [-1..1] = BEGIN RETURN Integer.Compare(p1.j, p2.j) END CompareJ; BEGIN END IntPair.