-- File: ParticularList.mesa
-- Last edited by MBrown on October 20, 1983 11:22 pm


  DIRECTORY
    Basics USING [Comparison, CompareINT];

ParticularList: CEDAR DEFINITIONS IMPORTS Basics = BEGIN
  
  Item: TYPE = INT;
  nullItem: Item = 0;
  Compare: PROC [a, b: LIST OF Item] RETURNS [Basics.Comparison]
    = INLINE { RETURN[Basics.CompareINT[a.first, b.first]] };

END.--ParticularList 


CHANGE LOG

Created by MBrown on March 10, 1982 3:22 pm

Changed by MBrown on June 28, 1982 10:23 am
-- Cedar interface.

Changed by MBrown on August 26, 1982 6:07 pm
-- Use Inline.CompareINT instead of Mopcodes!

Changed by MBrown on October 20, 1983 11:23 pm
-- Conversion to Cedar 5.0.