From 0239198b7f8d48c17bce95bb760215214f89d3ea Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 4 Feb 2005 18:19:50 +0000
Subject: Ajout constructeur External pour appel outil externe à Coq

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

(limited to 'translate')

diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml
index 33784c1b10..bb83d10309 100644
--- a/translate/pptacticnew.ml
+++ b/translate/pptacticnew.ml
@@ -782,7 +782,7 @@ let rec pr_tac env inherited tac =
   | TacFail (ArgArg 0,"") -> str "fail", latom
   | TacFail (n,s) -> 
       str "fail" ++ (if n=ArgArg 0 then mt () else pr_arg (pr_or_var int) n) ++
-      (if s="" then mt() else qsnew s), latom
+      (if s="" then mt() else (spc() ++ qsnew s)), latom
   | TacFirst tl ->
       str "first" ++ spc () ++ pr_seq_body (pr_tac env ltop) tl, llet
   | TacSolve tl ->
-- 
cgit v1.2.3