From b020c6c4d9f1fdd5f5e17f0b08151a18f021f8d3 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 25 Oct 2011 21:02:53 +0000
Subject: Applying Tom Prince's patch to support parametric "constructor n" in
 tactic notations and ltac definitions (see bug report #2496).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14606 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/pptactic.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parsing/pptactic.ml')

diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml
index b781e4e6e..fd4c1bcea 100644
--- a/parsing/pptactic.ml
+++ b/parsing/pptactic.ml
@@ -788,7 +788,7 @@ and pr_atom1 = function
   | TacAnyConstructor (ev,None) as t -> pr_atom0 t
   | TacConstructor (ev,n,l) ->
       hov 1 (str (with_evars ev "constructor") ++
-             pr_or_metaid pr_intarg n ++ pr_bindings l)
+             pr_or_var pr_intarg n ++ pr_bindings l)
 
   (* Conversion *)
   | TacReduce (r,h) ->
-- 
cgit v1.2.3