diff options
| author | Pierre-Marie Pédrot | 2014-08-07 00:54:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-08-07 01:23:02 +0200 |
| commit | 27a7d7133f83cb95eff90df4338a47b0d6681aa0 (patch) | |
| tree | f13ae6f466e68fcc8355e51c93799932615e1768 /grammar | |
| parent | 07a9afbdf9561402897728963d40de80b9912bea (diff) | |
Instead of relying on a trick to make the constructor tactic parse, put
all the tactics using the constructor keyword in one entry. This has the
side-effect to also remove the other variant of constructor from the AST.
I also needed to hack around the "tauto" tactic to make it work, by
calling directly the ML tactic through a TacExtend node. This may be
generalized to get rid of the intermingled dependencies between this
tactic and the infamous Ltac quotation mechanism.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_coqast.ml4 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 32001e6293..67331727a6 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -390,10 +390,6 @@ let rec mlexpr_of_atomic_tactic = function | Tacexpr.TacSplit (ev,l) -> <:expr< Tacexpr.TacSplit ($mlexpr_of_bool ev$, $mlexpr_of_list mlexpr_of_binding_kind l$)>> - | Tacexpr.TacConstructor (ev,n,l) -> - let n = mlexpr_of_or_var mlexpr_of_int n in - <:expr< Tacexpr.TacConstructor $mlexpr_of_bool ev$ $n$ $mlexpr_of_binding_kind l$>> - (* Conversion *) | Tacexpr.TacReduce (r,cl) -> let l = mlexpr_of_clause cl in |