PipalMutantsImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bertrand Serlet February 15, 1988 9:59:06 pm PST
Louis Monier January 20, 1988 2:51:13 am PST
Barth, January 28, 1988 4:47:25 pm PST
DIRECTORY Pipal, PipalMutate, PipalMutants;
PipalMutantsImpl:
CEDAR
PROGRAM
IMPORTS Pipal, PipalMutate
EXPORTS PipalMutants =
BEGIN OPEN PipalMutants;
Annotation Mutant
ChangeAnnotationKeyValue: PUBLIC PROC [mutant: Pipal.Object, key: ATOM, value: REF] = {};
EditAnnotation: PipalMutate.MutationProc = {};
Initialization
Pipal.PutClassMethod[Pipal.annotationClass, PipalMutate.mutationMethod, NEW [PipalMutate.MutationProc ← EditAnnotation]];
END.