- | Y.Name (s, true) -> out (P.sprintf "%s;" s)
- | Y.Name (s, false) -> out (P.sprintf "~%s;" s)
- | Y.Apix i -> out (P.sprintf "+%i;" i)
- | Y.Mark i -> out (P.sprintf "@%i;" i)
- | Y.Meta s -> out (P.sprintf "\"%s\";" s)
- | Y.Priv -> out (P.sprintf "%s;" "~")
+ | E.Name (s, true) -> out (P.sprintf "%s;" s)
+ | E.Name (s, false) -> out (P.sprintf "~%s;" s)
+ | E.Apix i -> out (P.sprintf "+%i;" i)
+ | E.Mark i -> out (P.sprintf "@%i;" i)
+ | E.Meta s -> out (P.sprintf "\"%s\";" s)
+ | E.Priv -> out (P.sprintf "%s;" "~")