ocaml 3.09 transition

[helm.git] / helm / matita / matitaDisambiguator.mli

diff --git a/helm/matita/matitaDisambiguator.mli b/helm/matita/matitaDisambiguator.mli
index 6d251cc7a2ba031ac060ca69d0e32ad81bdcaab7..7e207e12fd7970f742daed95357c959d784dbb5e 100644 (file)
--- a/helm/matita/matitaDisambiguator.mli
+++ b/helm/matita/matitaDisambiguator.mli
@@ -28,8 +28,9 @@ open MatitaTypes
 (** raised when ambiguous input is found but not expected (e.g. in the batch
   * compiler) *)
 exception Ambiguous_input
+exception DisambiguationError of string Lazy.t list list
 
-type choose_uris_callback   = id:string -> string list -> string list
+type choose_uris_callback = id:string -> UriManager.uri list -> UriManager.uri list
 type choose_interp_callback = (string * string) list list -> int list
 
 val set_choose_uris_callback:   choose_uris_callback -> unit
@@ -48,7 +49,3 @@ val mono_interp_callback: choose_interp_callback
 (** for GUI callbacks see MatitaGui.interactive_{interp,user_uri}_choice *)
 
 include Disambiguate.Disambiguator
-  (*
-   * val disambiguate_term: ...
-   *)
-