diff options
| author | Hugo Herbelin | 2020-03-02 12:00:41 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-03-13 07:37:25 +0100 |
| commit | ee2c5352d95adee5a31689c79785547c0dbaa749 (patch) | |
| tree | 53a749eb574f1d62f6332401f4a15c5760dcb318 | |
| parent | 89a5abb0b8b453bdda8c9ebf33734c42c3a826db (diff) | |
Deprecation of catchable_exception, to be replaced by noncritical in try-with.
| -rw-r--r-- | dev/doc/changes.md | 7 | ||||
| -rw-r--r-- | proofs/logic.mli | 1 | ||||
| -rw-r--r-- | tactics/class_tactics.mli | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/dev/doc/changes.md b/dev/doc/changes.md index d5938713d6..9088df6856 100644 --- a/dev/doc/changes.md +++ b/dev/doc/changes.md @@ -2,6 +2,13 @@ ### ML API +Refiner.catchable_exception is deprecated, use instead +CErrors.noncritical in try-with block. Note that nothing is needed in +tclORELSE block since the exceptions there are supposed to be +non-critical by construction. + +### ML API + Types `precedence`, `parenRelation`, `tolerability` in `notgram_ops.ml` have been reworked. See `entry_level` and `entry_relative_level` in `constrexpr.ml`. diff --git a/proofs/logic.mli b/proofs/logic.mli index 1046fd8b29..525c303d5b 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -50,6 +50,7 @@ exception RefinerError of Environ.env * evar_map * refiner_error val error_no_such_hypothesis : Environ.env -> evar_map -> Id.t -> 'a val catchable_exception : exn -> bool +[@@ocaml.deprecated "This function does not scale in the presence of dynamically added exceptions. Use instead CErrors.noncritical, or the exact name of the exception that matters in the corresponding case."] (** Move destination for hypothesis *) diff --git a/tactics/class_tactics.mli b/tactics/class_tactics.mli index dc94e6a6fb..394ef9a6b5 100644 --- a/tactics/class_tactics.mli +++ b/tactics/class_tactics.mli @@ -16,6 +16,7 @@ open EConstr val typeclasses_db : string val catchable : exn -> bool +[@@ocaml.deprecated "Use instead CErrors.noncritical, or the exact name of the exception that matters in the corresponding case."] val set_typeclasses_debug : bool -> unit val get_typeclasses_debug : unit -> bool |