diff options
| author | ppedrot | 2012-06-01 20:08:33 +0000 |
|---|---|---|
| committer | ppedrot | 2012-06-01 20:08:33 +0000 |
| commit | a92a0d051b987ba996905ccd4ce7ee3a5feb41c1 (patch) | |
| tree | ec5246ac1cfc741dc30c33fe6551216dfdef6a54 /tactics | |
| parent | 80b91aa1e83097efd006cfed5f57e4826a1ab0c8 (diff) | |
More cleaning
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15414 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eauto.ml4 | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index 1cde368a11..cdc7fd73b5 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -142,14 +142,6 @@ and e_my_find_search db_list local_db hdc concl = | Extern tacast -> conclPattern concl p tacast in (tac,lazy (pr_autotactic t))) - (*i - fun gls -> pPNL (pr_autotactic t); pp_flush (); - try tac gls - with e when Logic.catchable_exception(e) -> - (str "Fail\n"; - pp_flush (); - raise e) - i*) in List.map tac_of_hint hintl |