Matitaweb:

[helm.git] / matitaB / matita / matitaExcPp.ml

diff --git a/matitaB/matita/matitaExcPp.ml b/matitaB/matita/matitaExcPp.ml
index e3e18a415a6924835553c123f1df9c61d07cf2dc..89c04c278aa820e6de4d2bbd241b2622d464adb4 100644 (file)
--- a/matitaB/matita/matitaExcPp.ml
+++ b/matitaB/matita/matitaExcPp.ml
@@ -175,7 +175,7 @@ let rec to_string =
      None, "NTactic error: " ^ Lazy.force msg 
   | NTacStatus.Error (msg,Some exn) ->
      None, "NTactic error: " ^ Lazy.force msg ^ "\n" ^ snd(to_string exn)
-  | MultiPassDisambiguator.DisambiguationError (offset,errorll) ->
+(*  | MultiPassDisambiguator.DisambiguationError (offset,errorll) ->
      let loc =
       match errorll with
         | ((_,_,loc_msg,_)::_)::_ ->
@@ -233,6 +233,6 @@ let rec to_string =
      in
       loc,
        "********** DISAMBIGUATION ERRORS: **********\n" ^
-        explain (aux errorll)
+        explain (aux errorll) *)
   | exn -> None, "Uncaught exception: " ^ Printexc.to_string exn