diff options
| author | Pierre-Marie Pédrot | 2015-12-28 02:08:42 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-28 02:18:25 +0100 |
| commit | cb2f6a95ee72edb956f419a24f8385c8ae7f96f4 (patch) | |
| tree | 2ddf7103c75e4e824d5bfefade3ec774498fc131 /parsing | |
| parent | 28d4740736e5ef3b6f8547710dcf7e5b4d11cabd (diff) | |
Removing the special status of open_constr generic argument.
We also intepret it at toplevel as a true constr and push the resulting
evarmap in the current state.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 2 | ||||
| -rw-r--r-- | parsing/pcoq.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 31125e37cf..1fe12ce3e0 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -231,7 +231,7 @@ GEXTEND Gram [ [ id = identref -> id ] ] ; open_constr: - [ [ c = constr -> ((),c) ] ] + [ [ c = constr -> c ] ] ; uconstr: [ [ c = constr -> c ] ] diff --git a/parsing/pcoq.mli b/parsing/pcoq.mli index fdba413854..592c879197 100644 --- a/parsing/pcoq.mli +++ b/parsing/pcoq.mli @@ -219,7 +219,7 @@ module Module : module Tactic : sig - val open_constr : open_constr_expr Gram.entry + val open_constr : constr_expr Gram.entry val constr_with_bindings : constr_expr with_bindings Gram.entry val bindings : constr_expr bindings Gram.entry val hypident : (Id.t located * Locus.hyp_location_flag) Gram.entry |