diff options
| author | Enrico Tassi | 2018-08-21 13:07:36 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-09-04 11:09:31 +0200 |
| commit | 16be85933ffaf8c08523e4c02f754ee496593cf8 (patch) | |
| tree | d8c9b58d1b640baa3fc7185b4f205eac50d0dab1 /plugins | |
| parent | c880e9e01d57eb4beca561e209839caa66d38742 (diff) | |
[ssr] anomaly -> error (Fix #8253)
Looks like this bug was introduced when unification started raising the
UnableToUnify exception in 8ac929ea128f1f7353b3f4d532b642e769542e55 .
I now turn this exception into a PretypeError that is correctly catched
and printed.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssrmatching/ssrmatching.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/plugins/ssrmatching/ssrmatching.ml b/plugins/ssrmatching/ssrmatching.ml index 30a998c6ce..20ea8b3667 100644 --- a/plugins/ssrmatching/ssrmatching.ml +++ b/plugins/ssrmatching/ssrmatching.ml @@ -291,7 +291,10 @@ let unif_EQ_args env sigma pa a = prof_unif_eq_args.profile (unif_EQ_args env sigma pa) a ;; -let unif_HO env ise p c = Evarconv.the_conv_x env p c ise +let unif_HO env ise p c = + try Evarconv.the_conv_x env p c ise + with Evarconv.UnableToUnify(ise, err) -> + raise Pretype_errors.(PretypeError(env,ise,CannotUnify(p,c,Some err))) let unif_HO_args env ise0 pa i ca = let n = Array.length pa in |