From bf9d5245c59e297d93ee759f54b40ec67db5ff93 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 1 Apr 2008 21:41:46 +0000
Subject: Typo affichage "simple apply"

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

diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml
index aded98828e..d4a809756c 100644
--- a/parsing/pptactic.ml
+++ b/parsing/pptactic.ml
@@ -673,7 +673,7 @@ and pr_atom1 = function
   | TacExactNoCheck c -> hov 1 (str "exact_no_check" ++ pr_constrarg c)
   | TacVmCastNoCheck c -> hov 1 (str "vm_cast_no_check" ++ pr_constrarg c)
   | TacApply (a,ev,cb) ->
-      hov 1 ((if a then str "simple " else mt()) ++
+      hov 1 ((if a then mt() else str "simple ") ++
              str (if ev then "eapply" else "apply") ++ spc () ++ 
              pr_with_bindings cb)
   | TacElim (ev,cb,cbo) ->
-- 
cgit v1.2.3