From f2852e673938e31ccd24ef7573156ed861537e85 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 24 May 2003 23:30:32 +0000 Subject: Ajout FreshId git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4072 85f007b7-540e-0410-9357-904b9bb8a0f7 --- parsing/pptactic.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'parsing/pptactic.ml') diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 3022fcbb1..9c23d0ba5 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -647,6 +647,7 @@ and pr_tacarg0 = function | ConstrMayEval (ConstrTerm c) -> str "'" ++ pr_constr c | ConstrMayEval c -> pr_may_eval pr_constr pr_cst c | Integer n -> int n + | TacFreshId sopt -> str "FreshId" ++ pr_opt qstring sopt | (TacCall _ | Tacexp _) as t -> str "(" ++ pr_tacarg1 t ++ str ")" and pr_tacarg1 = function -- cgit v1.2.3