diff options
| author | coqbot-app[bot] | 2020-08-28 16:23:53 +0000 |
|---|---|---|
| committer | GitHub | 2020-08-28 16:23:53 +0000 |
| commit | 511c280825ea30cb93fa00e47d487875a489ac2c (patch) | |
| tree | 5b5c9b641c88c9d78cbb3633e83993c3676c4c7d /stm | |
| parent | 911f33f0a0ff648082d329841388f59e8cecf231 (diff) | |
| parent | 9d319872a1668775ba1d72ae856f46fd7f082bb9 (diff) | |
Merge PR #12932: par: print relevant subgoal when failing
Reviewed-by: gares
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index c94a6d3a5d..9999e66c45 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1922,7 +1922,8 @@ end = struct (* {{{ *) str" solves the goal and leaves no unresolved existential variables. The following" ++ str" existentials remain unsolved: " ++ prlist (Termops.pr_existential_key sigma) (Evar.Set.elements evars)) end) () - with e when CErrors.noncritical e -> RespError (CErrors.print e) + with e when CErrors.noncritical e -> + RespError (CErrors.print e ++ spc() ++ str "(for subgoal "++int (fst r_ast) ++ str ")") let name_of_task { t_name } = t_name let name_of_request { r_name } = r_name |