From 3b7ecfa6d4da684a635b2469c2d9a2e1e0ed0807 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 12 Mar 2013 23:59:05 +0000
Subject: invalid_arg instead of raise (Invalid_argement ...)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16270 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/cases.ml   | 2 +-
 pretyping/program.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping')

diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 358cc2f034..7516951e88 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -1958,7 +1958,7 @@ let vars_of_ctx ctx =
 		   [hole; GVar (Loc.ghost, prev)])) :: vars
 	| _ ->
 	    match na with
-		Anonymous -> raise (Invalid_argument "vars_of_ctx")
+		Anonymous -> invalid_arg "vars_of_ctx"
 	      | Name n -> n, GVar (Loc.ghost, n) :: vars)
       ctx (Id.of_string "vars_of_ctx_error", [])
   in List.rev y
diff --git a/pretyping/program.ml b/pretyping/program.ml
index a701fdef4a..6d913060b1 100644
--- a/pretyping/program.ml
+++ b/pretyping/program.ml
@@ -55,7 +55,7 @@ let mk_coq_not x = mkApp (delayed_force coq_not, [| x |])
 
 let unsafe_fold_right f = function
     hd :: tl -> List.fold_right f tl hd
-  | [] -> raise (Invalid_argument "unsafe_fold_right")
+  | [] -> invalid_arg "unsafe_fold_right"
 
 let mk_coq_and l =
   let and_typ = delayed_force coq_and in
-- 
cgit v1.2.3