From f14b6f1a17652566f0cbc00ce81421ba0684dad5 Mon Sep 17 00:00:00 2001
From: Pierre Letouzey
Date: Mon, 27 Jun 2016 11:03:43 +0200
Subject: errors.ml renamed into cErrors.ml (avoid clash with an OCaml
 compiler-lib module)

 For the moment, there is an Error module in compilers-lib/ocamlbytecomp.cm(x)a
---
 toplevel/command.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'toplevel/command.ml')

diff --git a/toplevel/command.ml b/toplevel/command.ml
index f3c2c43c29..f92ea027dd 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -7,7 +7,7 @@
 (************************************************************************)
 
 open Pp
-open Errors
+open CErrors
 open Util
 open Flags
 open Term
@@ -964,7 +964,7 @@ let build_wellfounded (recname,pl,n,bl,arityc,body) poly r measure notation =
 	  | [LocalAssum (_,t); LocalAssum (_,u)], Sort (Prop Null)
 	      when Reductionops.is_conv env !evdref t u -> t
 	  | _, _ -> error ()
-      with e when Errors.noncritical e -> error ()
+      with e when CErrors.noncritical e -> error ()
   in
   let measure = interp_casted_constr_evars binders_env evdref measure relargty in
   let wf_rel, wf_rel_fun, measure_fn =
@@ -1108,7 +1108,7 @@ let interp_recursive isfix fixl notations =
 	     try 
 	       let app = mkApp (delayed_force fix_proto, [|sort; t|]) in
 		 Typing.e_solve_evars env evdref app
-	     with e  when Errors.noncritical e -> t
+	     with e  when CErrors.noncritical e -> t
 	   in
 	     LocalAssum (id,fixprot) :: env'
 	 else LocalAssum (id,t) :: env')
-- 
cgit v1.2.3