diff options
| author | Pierre-Marie Pédrot | 2020-06-24 15:52:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-24 15:53:46 +0200 |
| commit | ec15eb5d0d0fa4085cc2413d9f6fe5db07feb216 (patch) | |
| tree | fc44e45a0f2dcf3c4f1c820cb525de6900be5714 /tactics/class_tactics.ml | |
| parent | 82485e9f2a36a7a52a56622a553817436636b00b (diff) | |
Remove the catchable-exception related functions.
They were deprecated in 8.12.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 484aab2f00..b3be420e76 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -446,10 +446,6 @@ let e_possible_resolve db_list local_db secvars only_classes env sigma concl = let cut_of_hints h = List.fold_left (fun cut db -> PathOr (Hint_db.cut db, cut)) PathEmpty h -let catchable = function - | Refiner.FailError _ -> true - | e -> Logic.catchable_exception e [@@ocaml.warning "-3"] - let pr_depth l = let rec fmt elts = match elts with |