diff options
| author | Emilio Jesus Gallego Arias | 2020-07-15 17:33:04 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-07-16 15:54:31 +0200 |
| commit | 4a4d35baf47944f4d30bd10de7e71f46f17da8f2 (patch) | |
| tree | 1375055cc0dcda8de90072f98678d1d25c684200 /plugins/ssr/ssrcommon.ml | |
| parent | f54bc666c62ad9a66067cb486816cdfc68c2946d (diff) | |
[gramlib] Remove legacy located exception wrapper in favor of standard infrastructure.
The old wrapper was basically unused, this PR also fixes backtraces in
some class of bugs such as https://github.com/coq/coq/issues/12695
Diffstat (limited to 'plugins/ssr/ssrcommon.ml')
| -rw-r--r-- | plugins/ssr/ssrcommon.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/ssr/ssrcommon.ml b/plugins/ssr/ssrcommon.ml index 65204b7868..9e120aee87 100644 --- a/plugins/ssr/ssrcommon.ml +++ b/plugins/ssr/ssrcommon.ml @@ -1124,8 +1124,7 @@ let tclDO n tac = let _, info = Exninfo.capture e in let e' = CErrors.UserError (l, prefix i ++ s) in Exninfo.iraise (e', info) - | Gramlib.Ploc.Exc(loc, CErrors.UserError (l, s)) -> - raise (Gramlib.Ploc.Exc(loc, CErrors.UserError (l, prefix i ++ s))) in + in let rec loop i gl = if i = n then tac_err_at i gl else (tclTHEN (tac_err_at i) (loop (i + 1))) gl in |