DIRECTORY SaffronBaseDef USING[FieldListNode, FieldNode, FrozenFieldListNode]; SaffronContext: CEDAR DEFINITIONS = BEGIN OPEN SaffronBaseDef; PrependFieldToFieldList: PROC[f: FieldNode, fl: FieldListNode] RETURNS[flp: FieldListNode]; PrependFFLToFieldList: PROC[ffl: FrozenFieldListNode, fl: FieldListNode] RETURNS[flp: FieldListNode]; AppendFFLToFieldList: PROC[fl: FieldListNode, ffl: FrozenFieldListNode] RETURNS[flp: FieldListNode]; ConcatFieldLists: PROC[fl1, fl2: FieldListNode] RETURNS[fl: FieldListNode]; ErrorSignal: ERROR; END.. .SaffronContext.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Sturgis, July 15, 1987 12:56:40 pm PDT Various base functions not in SaffronBaseDecls because unused by Saffron generated code. (all damage fl, produces no Sharing) (damages fl1, shares ) misc stuff Êñ˜J˜Jšœ™Jšœ<™