FIOCT,
FindInstanceOfCellType:
PUBLIC
PROC [cellType: Core.CellType, name: Core.
ROPE]
RETURNS [CoreClasses.CellInstance ←
NIL] = {
FOR i: CoreClasses.CellInstanceList ←
NARROW[cellType.data, CoreClasses.RecordCellType].instances, i.rest
UNTIL i=
NIL
DO
IF Rope.Equal[i.first.type.name, name] THEN RETURN[i.first];
ENDLOOP;
};