diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-12-31 19:26:02 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-02 02:02:02 +0100 |
| commit | a5e1b40b93e47a278746ee6752474891cd856c29 (patch) | |
| tree | 5d70a6984533ed605a99033472409fa182abe646 /grammar | |
| parent | 9a6269a2a425de9d1a593f2c7be77cc2922b46aa (diff) | |
Simplification of grammar_prod_item type.
Actually the identifier was never used and just carried along.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4 index 6069f4b4b..bf0c4fc21 100644 --- a/grammar/tacextend.ml4 +++ b/grammar/tacextend.ml4 @@ -95,7 +95,7 @@ let make_prod_item = function | ExtNonTerminal (EntryName (nt, g), id) -> let nt = Genarg.unquote nt in <:expr< Egramml.GramNonTerminal $default_loc$ $make_rawwit loc nt$ - $mlexpr_of_prod_entry_key g$ (Some $mlexpr_of_ident id$) >> + $mlexpr_of_prod_entry_key g$ >> let mlexpr_of_clause cl = mlexpr_of_list (fun (a,_,b) -> mlexpr_of_list make_prod_item a) cl |