diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 17:30:06 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 17:30:20 +0200 |
| commit | 93a03345830047310d975d5de3742fa58a0a224b (patch) | |
| tree | 21144361197dbe3b08a3a27ca157b1c569c4a743 | |
| parent | 13266ce4c37cb648b5e4e391aa5d7486bbcdb4ee (diff) | |
| parent | d4458d5e5f5322121b66b613e7640a2f8be6d3a8 (diff) | |
Merge PR #274.
| -rw-r--r-- | pretyping/cases.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 4cda689e9..ad57c1643 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -56,14 +56,14 @@ let error_bad_pattern ?loc env sigma cstr ind = (env, sigma, BadPattern (cstr,ind)) let error_bad_constructor ?loc env cstr ind = - raise_pattern_matching_error + raise_pattern_matching_error ?loc (env, Evd.empty, BadConstructor (cstr,ind)) let error_wrong_numarg_constructor ?loc env c n = - raise_pattern_matching_error (env, Evd.empty, WrongNumargConstructor(c,n)) + raise_pattern_matching_error ?loc (env, Evd.empty, WrongNumargConstructor(c,n)) let error_wrong_numarg_inductive ?loc env c n = - raise_pattern_matching_error (env, Evd.empty, WrongNumargInductive(c,n)) + raise_pattern_matching_error ?loc (env, Evd.empty, WrongNumargInductive(c,n)) let rec list_try_compile f = function | [a] -> f a |