diff options
| author | herbelin | 2004-09-09 13:27:03 +0000 |
|---|---|---|
| committer | herbelin | 2004-09-09 13:27:03 +0000 |
| commit | ce7e64328553ac71f2630816cfb8baa930ea471e (patch) | |
| tree | e0669306e771ebc7e5b9a7712212c39047e44d2e /interp/topconstr.ml | |
| parent | 1795451a803ffa38d9b5cbf38d93cc7df687c11f (diff) | |
Ajout de or-pattern pour le match-with v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6088 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index c92d790b11..d3b72ef787 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -481,6 +481,7 @@ type cases_pattern_expr = | CPatAlias of loc * cases_pattern_expr * identifier | CPatCstr of loc * reference * cases_pattern_expr list | CPatAtom of loc * reference option + | CPatOr of loc * cases_pattern_expr list | CPatNotation of loc * notation * cases_pattern_expr list | CPatNumeral of loc * Bignat.bigint | CPatDelimiters of loc * string * cases_pattern_expr @@ -568,6 +569,7 @@ let cases_pattern_loc = function | CPatAlias (loc,_,_) -> loc | CPatCstr (loc,_,_) -> loc | CPatAtom (loc,_) -> loc + | CPatOr (loc,_) -> loc | CPatNotation (loc,_,_) -> loc | CPatNumeral (loc,_) -> loc | CPatDelimiters (loc,_,_) -> loc |