diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-19 20:02:39 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-19 20:10:23 +0100 |
| commit | 631298df172c1e034d6898ff13d5d5aabb9a5098 (patch) | |
| tree | b43a195fe510f6692aa5b17c48358a630f04cb1b /grammar | |
| parent | cfeb55070713c8131ca0f95c6c374c624b36a895 (diff) | |
Removing the useless pattern ident genarg.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/argextend.ml4 | 2 | ||||
| -rw-r--r-- | grammar/q_coqast.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/grammar/argextend.ml4 b/grammar/argextend.ml4 index 934b9b117..093a561d6 100644 --- a/grammar/argextend.ml4 +++ b/grammar/argextend.ml4 @@ -31,7 +31,7 @@ let mk_extraarg loc s = let rec make_wit loc = function | IntOrVarArgType -> <:expr< Constrarg.wit_int_or_var >> - | IdentArgType b -> <:expr< Constrarg.wit_ident_gen $mlexpr_of_bool b$ >> + | IdentArgType -> <:expr< Constrarg.wit_ident >> | VarArgType -> <:expr< Constrarg.wit_var >> | QuantHypArgType -> <:expr< Constrarg.wit_quant_hyp >> | GenArgType -> <:expr< Constrarg.wit_genarg >> diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 3e11bf5a8..b3f60dee6 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -203,7 +203,7 @@ let mlexpr_of_red_expr = function let rec mlexpr_of_argtype loc = function | Genarg.IntOrVarArgType -> <:expr< Genarg.IntOrVarArgType >> - | Genarg.IdentArgType b -> <:expr< Genarg.IdentArgType $mlexpr_of_bool b$ >> + | Genarg.IdentArgType -> <:expr< Genarg.IdentArgType >> | Genarg.VarArgType -> <:expr< Genarg.VarArgType >> | Genarg.QuantHypArgType -> <:expr< Genarg.QuantHypArgType >> | Genarg.OpenConstrArgType -> <:expr< Genarg.OpenConstrArgType >> |