- | T.Free s -> P.fprintf och "%s" (S.map quote s)
- | T.Macro s -> P.fprintf och "\\%s" s
- | T.Group t -> P.fprintf och "%%\n{%a}" out_text t
+ | T.Free s -> P.fprintf och "%s" s
+ | T.Text s -> P.fprintf och "%s" (X.fold_string quote "" s)
+ | T.Macro s -> P.fprintf och "\\%s%%\n" s
+ | T.Group t -> P.fprintf och "{%a}%%\n" out_text t
+ | T.Note s -> P.fprintf och "%% %s\n" s