]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fixed: matitac used to stop too early when an ambigous identifier was met
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 5 Sep 2005 09:46:26 +0000 (09:46 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 5 Sep 2005 09:46:26 +0000 (09:46 +0000)
and auto_disambiguation was true.

helm/matita/matitaDisambiguator.ml

index e286fb5502a3714087fe925a2181d1ce75cda81b..d2c11890fa7cf7ae4d61c88063124727f98bbd75 100644 (file)
@@ -32,7 +32,11 @@ exception Ambiguous_input
 type choose_uris_callback = id:string -> UriManager.uri list -> UriManager.uri list
 type choose_interp_callback = (string * string) list list -> int list
 
-let mono_uris_callback ~id = raise Ambiguous_input
+let mono_uris_callback ~id =
+ if Helm_registry.get_bool "matita.auto_disambiguation" then
+  function l -> l
+ else
+  raise Ambiguous_input
 let mono_interp_callback _ = raise Ambiguous_input
 
 let _choose_uris_callback = ref mono_uris_callback