diff options
| author | Emilio Jesus Gallego Arias | 2020-02-12 10:22:59 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-03-03 23:45:46 -0500 |
| commit | ee5c3774806f86caab8e5c3fe45ed19512f49819 (patch) | |
| tree | 429163f60e4fa2666d36310d39069ad0dc0442c9 /user-contrib | |
| parent | 18aa9ca60ec9b3d1712276ec0c615dfe54c1a251 (diff) | |
[exn] Keep information from multiple extra exn handlers
This fixes #11547 ; note that it is hard to register such handlers in
the `Summary` due to layering issues; there are potential anomalies here
depending on how plugins do register their data structures.
Diffstat (limited to 'user-contrib')
| -rw-r--r-- | user-contrib/Ltac2/tac2entries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/user-contrib/Ltac2/tac2entries.ml b/user-contrib/Ltac2/tac2entries.ml index 2a0c109a42..2820d3e3ad 100644 --- a/user-contrib/Ltac2/tac2entries.ml +++ b/user-contrib/Ltac2/tac2entries.ml @@ -862,7 +862,7 @@ let () = CErrors.register_additional_error_info begin fun info -> let bt = str "Backtrace:" ++ fnl () ++ prlist_with_sep fnl pr_frame bt ++ fnl () in - Some (Loc.tag @@ Some bt) + Some (Loc.tag bt) else None end |