diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-16 23:19:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-17 00:35:15 +0100 |
| commit | e6b05180d789fb46bc91c71bc97efaf8b552f0fd (patch) | |
| tree | 563f63a45af2e9a8d247656836dea9290209585e /grammar/q_util.mli | |
| parent | 8a3b19b62720e2324ef24003407c2e83335a51a5 (diff) | |
ML extensions use untyped representation of user entries.
Diffstat (limited to 'grammar/q_util.mli')
| -rw-r--r-- | grammar/q_util.mli | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/grammar/q_util.mli b/grammar/q_util.mli index d9359de1e..81ad42266 100644 --- a/grammar/q_util.mli +++ b/grammar/q_util.mli @@ -10,7 +10,7 @@ open Compat (* necessary for camlp4 *) type extend_token = | ExtTerminal of string -| ExtNonTerminal of unit Pcoq.entry_name * Names.Id.t +| ExtNonTerminal of Genarg.argument_type * Extend.user_symbol * Names.Id.t val mlexpr_of_list : ('a -> MLast.expr) -> 'a list -> MLast.expr @@ -34,4 +34,6 @@ val mlexpr_of_string : string -> MLast.expr val mlexpr_of_option : ('a -> MLast.expr) -> 'a option -> MLast.expr -val mlexpr_of_prod_entry_key : ('self, 'a) Pcoq.entry_key -> MLast.expr +val mlexpr_of_prod_entry_key : Extend.user_symbol -> MLast.expr + +val type_of_user_symbol : Extend.user_symbol -> Genarg.argument_type |