premier debugage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@210 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 0 deletions

diff --git a/toplevel/errors.ml b/toplevel/errors.ml
index 4029437bff..444d18b423 100644
--- a/toplevel/errors.ml
+++ b/toplevel/errors.ml
@@ -4,6 +4,7 @@
 open Pp
 open Util
 open Ast
+open Inductive
 open Type_errors
 
 let print_loc loc =
@@ -48,6 +49,8 @@ let rec explain_exn_default = function
 
   | TypeError(k,ctx,te) -> Himsg.explain_type_error k ctx te
 
+  | InductiveError e -> Himsg.explain_inductive_error e
+
   | Stdpp.Exc_located (loc,exc) ->
       hOV 0 [< if loc = Ast.dummy_loc then [<>]
                else [< 'sTR"At location "; print_loc loc; 'sTR":"; 'fNL >];