3 files changed, 3 insertions, 3 deletions
diff --git a/mathcomp/ssreflect/plugin/trunk/ssrmatching.ml4 b/mathcomp/ssreflect/plugin/trunk/ssrmatching.ml4
index 291315c..dbc7f8b 100644
--- a/mathcomp/ssreflect/plugin/trunk/ssrmatching.ml4
+++ b/mathcomp/ssreflect/plugin/trunk/ssrmatching.ml4
@@ -659,7 +659,7 @@ let match_upats_HO ~on_instance upats env sigma0 ise c =
       | Pretype_errors.PretypeError
          (_,_,Pretype_errors.UnsatisfiableConstraints _) ->
           failed_because_of_TC:=true
-      | _ -> () in
+      | e when Errors.noncritical e -> () in
     List.iter one_match fpats
   done;
   iter_constr_LR (aux upats env sigma0 ise) f;
diff --git a/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 b/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4
index b21de4d..3686b0a 100644
--- a/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4
+++ b/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4
@@ -624,7 +624,7 @@ let match_upats_HO upats env sigma0 ise c =
       | Pretype_errors.PretypeError
          (_,_,Pretype_errors.UnsatisfiableConstraints _) ->
           failed_because_of_TC:=true
-      | _ -> () in
+      | e when Errors.noncritical e -> () in
     List.iter one_match fpats
   done;
   iter_constr_LR (aux upats env sigma0 ise) f;
diff --git a/mathcomp/ssreflect/plugin/v8.5/ssrmatching.ml4 b/mathcomp/ssreflect/plugin/v8.5/ssrmatching.ml4
index 9599ff9..0187a12 100644
--- a/mathcomp/ssreflect/plugin/v8.5/ssrmatching.ml4
+++ b/mathcomp/ssreflect/plugin/v8.5/ssrmatching.ml4
@@ -658,7 +658,7 @@ let match_upats_HO ~on_instance upats env sigma0 ise c =
       | Pretype_errors.PretypeError
          (_,_,Pretype_errors.UnsatisfiableConstraints _) ->
           failed_because_of_TC:=true
-      | _ -> () in
+      | e when Errors.noncritical e -> () in
     List.iter one_match fpats
   done;
   iter_constr_LR (aux upats env sigma0 ise) f;