diff options
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 |