intpair/src/IntPair.m3


Copyright (C) 1994, Digital Equipment Corp.

MODULE IntPair;

IMPORT Integer;

PROCEDURE Compare(p1, p2: T): [-1..1] =
  BEGIN RETURN Integer.Compare(p1.i, p2.i) END Compare;

PROCEDURE CompareJ(p1, p2: T): [-1..1] =
  BEGIN RETURN Integer.Compare(p1.j, p2.j) END CompareJ;

BEGIN
END IntPair.