diff options
| -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 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) -> |