-- File: ParticularList.mesa
-- Last edited by MBrown on August 26, 1982 6:07 pm


  DIRECTORY
    Environment USING [Comparison],
    Inline USING [CompareINT];

ParticularList: CEDAR DEFINITIONS IMPORTS Inline = BEGIN
  
  Item: TYPE = INT;
  nullItem: Item = 0;
  Compare: PROC [a, b: LIST OF Item] RETURNS [Environment.Comparison]
    = INLINE { RETURN[Inline.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!