diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-12 23:59:05 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-12 23:59:05 +0000 |
commit | 3b7ecfa6d4da684a635b2469c2d9a2e1e0ed0807 (patch) | |
tree | 2ce23cad6a0067480658001f0636efbdd3269b51 /pretyping | |
parent | b66d099bdda2ce1cfaeeb7938346a348ef4d40cd (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.ml | 2 | ||||
-rw-r--r-- | pretyping/program.ml | 2 |
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 |