diff options
| author | letouzey | 2012-05-29 11:08:50 +0000 |
|---|---|---|
| committer | letouzey | 2012-05-29 11:08:50 +0000 |
| commit | 392300a73bc4e57d2be865d9a8d77c608ef02f59 (patch) | |
| tree | 44b4f39e7f92f29f4626d4aa8265fe68eb129111 /parsing/egrammar.ml | |
| parent | a936f2e879ac1f9b2e7e9d8a5376469e3d53c606 (diff) | |
New files intf/constrexpr.mli and intf/notation_term.mli out of Topconstr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15375 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/egrammar.ml')
| -rw-r--r-- | parsing/egrammar.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index 17a4d98ad1..d55363b171 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -13,7 +13,8 @@ open Util open Pcoq open Extend open Ppextend -open Topconstr +open Constrexpr +open Notation_term open Genarg open Libnames open Nameops @@ -108,7 +109,7 @@ let make_constr_action make ([],[],[]) (List.rev pil) let check_cases_pattern_env loc (env,envlist,hasbinders) = - if hasbinders then error_invalid_pattern_notation loc else (env,envlist) + if hasbinders then Topconstr.error_invalid_pattern_notation loc else (env,envlist) let make_cases_pattern_action (f : loc -> cases_pattern_notation_substitution -> cases_pattern_expr) pil = |