<> <> <> <> <> DIRECTORY Pipal, PipalMutate, PipalMutants; PipalMutantsImpl: CEDAR PROGRAM IMPORTS Pipal, PipalMutate EXPORTS PipalMutants = BEGIN OPEN PipalMutants; <> ChangeAnnotationKeyValue: PUBLIC PROC [mutant: Pipal.Object, key: ATOM, value: REF] = {}; EditAnnotation: PipalMutate.MutationProc = {}; <> Pipal.PutClassMethod[Pipal.annotationClass, PipalMutate.mutationMethod, NEW [PipalMutate.MutationProc _ EditAnnotation]]; END.