(no commit message)

[helm.git] / matitaB / components / ng_disambiguation / grafiteDisambiguate.ml

diff --git a/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml b/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
index c39ac161d939d56dac961b2f0527589a07f8b759..162e172a4da9f38c767021d9f7fee9020d9ba7d6 100644 (file)
--- a/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
+++ b/matitaB/components/ng_disambiguation/grafiteDisambiguate.ml
@@ -353,7 +353,7 @@ let disambiguate_nterm status expty context metasenv subst thing
           diff_term Stdpp.dummy_loc thing' ast) choices 
       in 
       raise (Ambiguous_input (find_diffs diffs)) 
-  | Disambiguate.Disamb_failure (l,_) ->
+  | Disambiguate.Disamb_failure l ->
       raise (Error (List.map (clusterize (diff_term Stdpp.dummy_loc thing')) l))
   | _ -> assert false
 ;;
@@ -440,7 +440,7 @@ let disambiguate_nobj status ?baseuri (text,prefix_len,obj as obj') =
           diff_obj Stdpp.dummy_loc obj ast) choices 
       in
       raise (Ambiguous_input (find_diffs diffs)) 
-  | Disambiguate.Disamb_failure (l,_) -> 
+  | Disambiguate.Disamb_failure l -> 
       raise (Error (List.map (clusterize (diff_obj Stdpp.dummy_loc obj)) l))
   | _ -> assert false
 ;;