diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-01 20:08:33 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-01 20:08:33 +0000 |
| commit | a92a0d051b987ba996905ccd4ce7ee3a5feb41c1 (patch) | |
| tree | ec5246ac1cfc741dc30c33fe6551216dfdef6a54 /tactics/eauto.ml4 | |
| 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/eauto.ml4')
| -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 1cde368a1..cdc7fd73b 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 |