diff options
| author | herbelin | 2005-02-04 18:19:50 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-04 18:19:50 +0000 |
| commit | 0239198b7f8d48c17bce95bb760215214f89d3ea (patch) | |
| tree | 03795e39632e4e171acb16299d92dd576225267c /translate | |
| parent | eb94790070b9b67f655cf1f0e440f50f285740e4 (diff) | |
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
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 -> |