\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-module Y = Entity
+module E = Entity
(* internal functions *******************************************************)
let alpha_name acc attr =
let ns, a = acc in
match attr with
- | Y.Name n ->
+ | E.Name n ->
if List.mem n ns then
let n = rename ns n in
- n :: ns, Y.Name n :: a
+ n :: ns, E.Name n :: a
else
n :: ns, attr :: a
| _ -> assert false
let _, names = List.fold_left alpha_name (ns, []) (List.rev names) in
List.rev_append a names
in
- Y.get_names f a
+ E.get_names f a