diff options
| author | Pierre-Marie Pédrot | 2020-03-08 00:31:06 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-03-08 00:31:06 +0100 |
| commit | dbd3a4c4213b3d56908a8387de93e27aaec501a4 (patch) | |
| tree | 4c9e68600df547c89a159852205a13f8dd9dfa1b /user-contrib | |
| parent | 83d15b4d686349da0fbd46ea080ee45368d6a964 (diff) | |
| parent | ee5c3774806f86caab8e5c3fe45ed19512f49819 (diff) | |
Merge PR #11578: [exn] Keep information from multiple extra exn handlers
Reviewed-by: ppedrot
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 |