X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fmatita%2FmatitaExcPp.ml;h=89c04c278aa820e6de4d2bbd241b2622d464adb4;hb=04168c737e0916ebdbcdb1457f228bef670c657b;hp=e3e18a415a6924835553c123f1df9c61d07cf2dc;hpb=24fc5e5485245fe879e17d46176530b688930b3b;p=helm.git

diff --git a/matitaB/matita/matitaExcPp.ml b/matitaB/matita/matitaExcPp.ml
index e3e18a415..89c04c278 100644
--- 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