From a5e1b40b93e47a278746ee6752474891cd856c29 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 31 Dec 2015 19:26:02 +0100
Subject: Simplification of grammar_prod_item type.

Actually the identifier was never used and just carried along.
---
 grammar/tacextend.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'grammar')

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
-- 
cgit v1.2.3