diff options
| author | Pierre-Marie Pédrot | 2020-11-23 11:19:49 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-23 11:19:49 +0100 |
| commit | 8b3ad4dc37b55fbf2420b692c352a1c748181411 (patch) | |
| tree | c60d947fcb47c8513e05d2255020b85b12f3a28d /pretyping | |
| parent | 0326d06211c49efb4018d65280cf26340f7344b4 (diff) | |
| parent | 6eb6f55499647b9b5a72626839683f6dff9c1549 (diff) | |
Merge PR #13377: Fix timeout by ensuring signal exceptions are not erroneously caught
Reviewed-by: ppedrot
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index c352a6ac1f..1c24578a1c 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1944,7 +1944,7 @@ let w_unify_to_subterm_list env evd flags hdmeta oplist t = try (* First try finding a subterm w/o conversion on open terms *) let flags = set_no_delta_open_flags flags in w_unify_to_subterm env evd ~flags t' - with e -> + with e when CErrors.noncritical e -> (* If this fails, try with full conversion *) w_unify_to_subterm env evd ~flags t' else w_unify_to_subterm env evd ~flags t' |