diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-12 20:49:15 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-12 20:49:15 +0000 |
| commit | 1638f5df49ff81e174f6a1c6915a65c9b9d4adf5 (patch) | |
| tree | b3156dbc48bed485132a0e9cbca59a1c82bc1d9a /tactics/eauto.ml4 | |
| parent | cf6b384b17a66686f31001d8aeb0958f3cfbfbea (diff) | |
Remove print call that do not use the pp mechanism
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15148 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/eauto.ml4')
| -rw-r--r-- | tactics/eauto.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index a0187434a..fb9439d73 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -139,11 +139,11 @@ and e_my_find_search db_list local_db hdc concl = in (tac,lazy (pr_autotactic t))) (*i - fun gls -> pPNL (pr_autotactic t); Format.print_flush (); + fun gls -> pPNL (pr_autotactic t); pp_flush (); try tac gls with e when Logic.catchable_exception(e) -> - (Format.print_string "Fail\n"; - Format.print_flush (); + (str "Fail\n"; + pp_flush (); raise e) i*) in |