diff options
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 17a4d98ad..d55363b17 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 = |