]> matita.cs.unibo.it Git - helm.git/commitdiff
Matita 0.99.* bug fixed: new alias insertion
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 26 Dec 2018 18:18:24 +0000 (19:18 +0100)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 27 Sep 2019 13:45:22 +0000 (15:45 +0200)
Fixed a bug that was there since the new Matita
generation: new_aliases were always computed
as empty and thus never inserted.

matita/components/ng_disambiguation/grafiteDisambiguate.ml
matita/components/ng_disambiguation/grafiteDisambiguate.mli

index 9cfbbc8c0a184b75a47a68d7a2d3ab12b6b49c34..7b1e2c50869f4e5b93fbc112f3b116515d58825a 100644 (file)
@@ -57,9 +57,9 @@ class virtual status =
 let eval_with_new_aliases status f =
  let status =
   status#set_disambiguate_db { status#disambiguate_db with new_aliases = [] } in
- let res = f status in
- let new_aliases = status#disambiguate_db.new_aliases in
-  new_aliases,res
+ let new_status = f status in
+ let new_aliases = new_status#disambiguate_db.new_aliases in
+  new_aliases,new_status
 ;;
 
 let dump_aliases out msg status =
index c462af36f9cac05f0028b6eff603892cb3b03f5b..019051255bd3f4dde76f8ea334f99ad3949972e6 100644 (file)
@@ -40,7 +40,7 @@ class virtual status :
  end
 
 val eval_with_new_aliases:
- #status as 'status -> ('status -> 'a) ->
+ #status as 'status -> ('status -> (#status as 'a)) ->
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list * 'a
 
 val set_proof_aliases: