class FieldList

pri next : FieldList;

pri Field : FieldInfo;

meth SetNext =^ ( val n: FieldList ·

next:= n;

)

end

meth GetNext =^ ( res n: FieldList ·

n:= next;

)

end

meth SetField =^ ( val f: FieldInfo ·

Field:= f;

)

end

meth GetField =^ ( res f: FieldInfo ·

f:= Field;

)

end

end