try
let description2 =
LexiconAst.description_of_alias
- (Map.find domain_item from.LexiconEngine.aliases)
+ (Map.find domain_item from#lstatus.LexiconEngine.aliases)
in
if description1 <> description2 then
(domain_item,codomain_item)::acc
with
Not_found ->
(domain_item,codomain_item)::acc)
- status.LexiconEngine.aliases []
+ status#lstatus.LexiconEngine.aliases []
;;
-let alias_diff =
- let profiler = HExtlib.profile "alias_diff(conteg. anche in include)" in
- fun ~from status -> profiler.HExtlib.profile (alias_diff ~from) status
-
(** given a uri and a type list (the contructors types) builds a list of pairs
* (name,uri) that is used to generate automatic aliases **)
let extract_alias types uri =
let time_travel ~present ~past =
let notation_to_remove =
- id_list_diff present.LexiconEngine.notation_ids
- past.LexiconEngine.notation_ids
+ id_list_diff present#lstatus.LexiconEngine.notation_ids
+ past#lstatus.LexiconEngine.notation_ids
in
List.iter CicNotation.remove_notation notation_to_remove