From b5f6eb57a480d705be9362067e2fb887533c822c Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 17 Mar 2016 23:49:40 +0100
Subject: ARGUMENT EXTEND made of only one entry share the same grammar.

This fixes parsing conflicts with the [fix ... with] tactic.
---
 grammar/tacextend.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'grammar/tacextend.ml4')

diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4
index 8c85d0162..a18dfa509 100644
--- a/grammar/tacextend.ml4
+++ b/grammar/tacextend.ml4
@@ -85,7 +85,7 @@ let make_fun_clauses loc s l =
 let make_prod_item = function
   | ExtTerminal s -> <:expr< Egramml.GramTerminal $str:s$ >>
   | ExtNonTerminal (nt, g, id) ->
-    let base s = <:expr< Pcoq.genarg_grammar $mk_extraarg loc s$ >> in
+    let base s = <:expr< Pcoq.name_of_entry (Pcoq.genarg_grammar $mk_extraarg loc s$) >> in
       <:expr< Egramml.GramNonTerminal $default_loc$ $make_rawwit loc nt$
       $mlexpr_of_prod_entry_key base g$ >>
 
-- 
cgit v1.2.3