diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-01 21:41:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-01 21:41:46 +0000 |
| commit | bf9d5245c59e297d93ee759f54b40ec67db5ff93 (patch) | |
| tree | 97957b4b627052f242f059827745481e2ddb28ea | |
| parent | 124016815a5a38dfebee75451721ae13bca81959 (diff) | |
Typo affichage "simple apply"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10740 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index aded98828..d4a809756 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) -> |