snopshot (working one!)

[helm.git] / matita / matitaExcPp.ml

diff --git a/matita/matitaExcPp.ml b/matita/matitaExcPp.ml
index 14e7a0db8777adcea5f59fa871c9fc725ba04222..24981af6bc6e754b4595b9b04614a26b478ea050 100644 (file)
--- a/matita/matitaExcPp.ml
+++ b/matita/matitaExcPp.ml
@@ -147,6 +147,8 @@ let rec to_string =
      None, "Already defined: " ^ UriManager.string_of_uri s
   | CoercDb.EqCarrNotImplemented msg ->
      None, ("EqCarrNotImplemented: " ^ Lazy.force msg)
+  | MatitaEngine.EnrichedWithLexiconStatus (exn,_) ->
+     None, "EnrichedWithLexiconStatus "^snd(to_string exn)
   | GrafiteDisambiguator.DisambiguationError (offset,errorll) ->
      let loc =
       match errorll with