aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping
diff options
context:
space:
mode:
authorGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-03-12 23:59:05 +0000
committerGravatar letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-03-12 23:59:05 +0000
commit3b7ecfa6d4da684a635b2469c2d9a2e1e0ed0807 (patch)
tree2ce23cad6a0067480658001f0636efbdd3269b51 /pretyping
parentb66d099bdda2ce1cfaeeb7938346a348ef4d40cd (diff)
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
Diffstat (limited to 'pretyping')
-rw-r--r--pretyping/cases.ml2
-rw-r--r--pretyping/program.ml2
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 358cc2f03..7516951e8 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 a701fdef4..6d913060b 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