diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-11 13:41:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-11 13:41:58 +0000 |
| commit | 7eabcd379d162132c886a56df027171120412020 (patch) | |
| tree | d7d9ecc9325db0e6750fead6a0bc855252479c3c | |
| parent | 9ca14acd5acdd6159540d072a777adb4b9ed5ed0 (diff) | |
Message d'erreur bad pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@684 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 7b1f3cf8c..b7bd4ecfe 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -361,6 +361,8 @@ let explain_type_error k ctx = function | NotProduct c -> explain_not_product k ctx c (* Pattern-matching errors *) + | BadPattern (c,t) -> + explain_bad_pattern k ctx c t | BadConstructor (c,ind) -> explain_bad_constructor k ctx c ind | WrongNumargConstructor (c,n) -> |