diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-17 16:01:23 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-17 16:04:39 +0100 |
| commit | d66fe71c93bc06f6006c64118deb1d5b01bf7487 (patch) | |
| tree | 9b534252c1699be106a40daacc416f585dad74eb /grammar | |
| parent | e3e8a4065047e254f5f5c2747227db75f01b7bed (diff) | |
Adding a universe argument to Pcoq.create_generic_entry.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/argextend.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/grammar/argextend.ml4 b/grammar/argextend.ml4 index 46c68ecc3..57ae357de 100644 --- a/grammar/argextend.ml4 +++ b/grammar/argextend.ml4 @@ -147,7 +147,7 @@ let declare_tactic_argument loc s (typ, pr, f, g, h) cl = <:str_item< Genintern.register_subst0 $wit$ $subst$ >>; <:str_item< Geninterp.register_interp0 $wit$ $interp$ >>; <:str_item< - value $lid:s$ = Pcoq.create_generic_entry $se$ $rawwit$ >>; + value $lid:s$ = Pcoq.create_generic_entry Pcoq.utactic $se$ $rawwit$ >>; <:str_item< do { Pcoq.grammar_extend $lid:s$ None (None, [(None, None, $rules$)]); Pptactic.declare_extra_genarg_pprule @@ -170,7 +170,7 @@ let declare_vernac_argument loc s pr cl = value ($lid:"wit_"^s$ : Genarg.genarg_type 'a unit unit) = Genarg.create_arg $se$ >>; <:str_item< - value $lid:s$ = Pcoq.create_generic_entry $se$ $rawwit$ >>; + value $lid:s$ = Pcoq.create_generic_entry Pcoq.utactic $se$ $rawwit$ >>; <:str_item< do { Pcoq.grammar_extend $lid:s$ None (None, [(None, None, $rules$)]); Pptactic.declare_extra_genarg_pprule $wit$ |